

A Milano, in via Mascheroni, 14. 

La prima software - libreria italiana 

Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novità. 

Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 

Dove? Alla Librerìa JACKSON. La prima software - libreria italiana, 

A Milano, in via Mascheroni, 14. - Tei. 02-437385 

Vieni a trovarci: ti aspettiamo. 
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Commodore 64 
la grafica e 11 suono 

Ogni argomento viene spiegato e ac- 
com pagnato da numerosi esempi 
commentati. Nei libro sono listati 
moltissimi programmi che sono regi- 
strali sulla cassetta allegata. 

Nel Capitolo 1 si tratta del video, del- 
ia tastiera e della grafica in modo 
carattere. Il Capitolo 2 è dedicato a h 
le grafica e ne approfondisce tutti gli 
aspetti, il Capitolo 3 tratta degli spri- 
tt., Nel Capitolo 4 viene trattato l’ar- 
gomento del suono. Completano il li- 
bro tre appendici: ì registri del VIC II 
e del SI D e le frequenze delle note 
musicali. 


Rita Boneili 

Commodore 64 
11 basic 

Un’accurata esposizione del lin- 
guaggio BASIC, accompagnata da 
numerosi esempi. 

Nel Capitolo 1 si ha una panoramica 
dei diversi argomenti. Il Capitolo 2 è 
dedicato al linguaggio. Nel Capitolo 
3 si approfondisce l'uso della tastie- 
ra e del video. Il Capitole 4 tornisce 
le informazioni necessaire per usare 
disco e cassetta per memorizzare 
programmi. 


Rita Boneili 

Commodore 64 
i file 


Questo libro tratta in maniera com- 
pleta e precisa la gestione dei file su 
cassetta e su disco. 

Oltre a brevi programmi esempio, ri- 
portati per spiegare l’uso delle istru- 
zioni, il libro contiene cinque pro- 
grammi per creare e gestire un archi- 
vio di dati: SEQUENZIALE su casset- 
to, SEQUENZIALE su disco, RAN~ 
DOM su disco, RANCO M: USER su 
disco, RELATIVO su disco. 


Cod. 400 B Pag. 173 Lire 17.000 


Il Capitolo S è dedicato alla stam- 
pante, Nel Capitolo 6 si parla della 
costruzione del programma. 

Nel Capitolo 7 vengono passati m 
rassegna i codici e i numeri del cal- 
colatore. Il Capitolo fi è dedicato atta 
memoria. Nel Capitolo 9 si tratta de- 
gli errai. Completano il libro, l’Ap- 
pendice A dedicata alla tastiera e 
l’Appendice B all’argomento de) BA- 
SIC compilato. 

Tutti i programmi esempio riportati 
nel libro sono disponibili a richiesta 
su floppy disk. 

Cod , 348 D Pag . 316 Lire 26.000 
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R iceviamo numerose lettere di lettori che protestano per il mancato 
funzionamento dei programmi pubblicati sulla rivista Parliamone. Pri- 
ma della pubblicazione ogni programma viene accuratamente e a lungo 
provato, testato e giocato (se di gioco sì tratta) in redazione, proprio per 
controllarne il corretto funzionamento. 

La produzione del listato e della cassetta avviene utilizzando poi un master 
""super collaudato” (per una superi vista è necessario un supercollaudo). 
Come abbiamo già avuto modo dì dire, può succedere che, per motivi di 
carattere tecnico e del tutto imprevedibili, qualche cassetta risulti non 
perfettamente funzionante. Tutto ciò rientra, nostro malgrado, nella nor- 
malità delle cose. 

11 medesimo discorso vale per la pubblicazione dei listati; ogni tanto qualco- 
sa può sfuggire agli occhi attenti dì redattori, grafici, ecc. 

♦In ogni caso si tratta sempre e comunque di eventi con carattere di 
eccezione. Quando abbiamo avuto modo di controllare le asserzioni di 
certi lettori che sostenevano il malfunzionamento di un programma è 
sempre risultato un errore di caricamento da cassetta oppure un errore 
di trascrizione dello stesso. 

Nel primo caso non erano state lette, e correttamente interpretate, le 
istruzioni per il caricamento da nastro; nel secondo caso, nonostante TOK 
List, c’era un lettore di trascrizione nel programma. 

I più frequenti tra questi errori sono lo scambio dello 0 (zero) con la lettera 
“0" oppure la errore T con la cifra 1 e così vìa. 

Quanto detto non vuole certo essere una difesa ad oltranza del nostro 
lavoro, ma non è giusto che ci vengano addossate colpe per lo più inesisten- 
ti. 

Vi chiediamo dunque di porre un po’ più di attenzione, poiché siamo certi 
che, così facendo, potranno essere risolti la maggior parte dei problemi 
circa il corretto funzionamento dì cassette e programmi. 

Pietro Dell'Orco 
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Per collaborare a SUPERCOMMODORE 


La rivista è interessata ad articoli e programmi riguardanti la linea Commodore, di interesse 
generale, chiarì ed esaurienti. Vi proponiamo una piccola “guida”, che ha particolarmente ìo 
scopo di rendere più accurata la stesura dei vostri manoscritti: seguendo i nostri consigli sì 
accresceranno le probabilità che le vostre buone idee e ì vostri programmi vengano pubblicati 


I l'angolo superiore sinistro della prima pagina 
dovrà contenere: nome, cognome, indirizzo, 
numero telefonico, codice fiscale, data di spedi- 
zione, luogo e data dì nascita. 

l'angolo superiore destro della prima pagina 
dovrà contenere la marca e il tipo dì compu- 
ter al quale il lavoro si riferisce, unitamente ad 
eventuali espansioni di memoria o periferiche ri- 
chieste. 

3 il titolo deirarticolo, sottolineato, dovrà ini- 
ziare a circa due terzi in altezza della prima 
pagina, 

le pagine seguenti potranno essere battute 
normalmente, con la condizione che l’angolo 
superiore destro contenga un'abbreviazione del 
titolo e del cognome, unitamente a) numero di 
pagina. Per esempio, Sprite Ed.. ./Brambilla/2. 

5 il testo dell'articolo dovrà essere battuto a 
macchina con interlinea di uno spazio e mez- 
zo, massimo due spazi; un margine dì almeno un 
centimetro dovrà essere lasciato su entrambi i 
lati dello scritto. 

dovranno essere usati fogli in formato UNI 
A4 (cm. 21 x 29,7) e il testo, scritto in carat- 
teri maiuscoli e minuscoli, dovrà occupare una 
sola facciata del foglio. 

7 nel caso lì testo comprenda più fogli, questi 
dovranno essere uniti con un fermaglio o con 
un punto metallico aperto, 

8 avendo intenzione di spedire più di un artìco- 
lo, questi dovranno essere inviati separata- 
mente insieme alla rispettiva copia su supporto 
magnetico. 

9 programmi brevi (meno di 20 linee) potranno 
essere inseriti nel testo, mentre programmi 
più lunghi dovranno essere listati separatamente. 
E ESSENZIALE per noi disporre di una copia 
del programma registrata più volte su supporto 
magnetico, su entrambi i lati dello stesso, E prefe- 
ribile usare nastri di buona qualità e di lunghezza 
non eccessiva; la cassetta o il disco dovranno 
essere etichettati con il nome dell'autore, il titolo 
dell’articolo, il computer interessato e soprat- 
tutto le eventuali espansioni richieste. Come sug- 


gerimenti di programmazione sì consiglia di usa- 
re le istruzioni “CHR$( x )'\ “TAB( x )* t SPQ x 
)", piuttosto che stringhe di manipolazione del 
cursore. 

Ad esempio, per uno scroll di 5 linee l'istruzione 
“FORI - 1 T05 : PRINT : NEXT” . è molto più in- 
terpretabile di 5 Q inverse; e, invece di una dozzi- 
na di simboli di cursore a destra, perché non 
usare semplicemente “PRINT SPC (12)”? Un ra- 
pido controllo dei programmi per operare queste 
sostituzioni sarà molto apprezzato da noi e dai 
lettori. 

per maggior chiarezza, all'interno deirar- 
ticolo è conveniente usare caratteri maiu- 
scoli riferendosi a istruzioni BASIC (esempio RE 
TURN, LIST, RND, PRINT eco.). Se si desidera 
evidenziare una parola, è preferibile sottolinearla 
piuttosto che scriverla In carattere maiuscolo. 

n gii articoli ed i programmi potranno avere 
qualsiasi lunghezza: da una routine dì una 
sola linea fino a programmi molto compiessi, 

volendo includere diapositive, queste do- 
vranno avere formato 24x36, o 6x6. 
non prenderemo in considerazione artico- 
li che siano stati sottoposti ad altre case 

editrici. 

il materiale non pubblicato non verrà re- 
stituito. 

il compenso per la collaborazione presta- 
ta sarà commisurato alla complessità e 
all’interesse del testo e/o del programma (da un 
minimo di L, 50.000 a un massimo di L. 
300 , 000 ). Il pagamento verrà effettuato in caso 
di pubblicazione del lavoro. 


Inviate idee e programmi a: 

SUPERCOMMODORE 
Viale Restelli, 5 
20124 Milano 

e saremo lietissimi di pubblicare I contri- 
buti migliori. 

La Redazione 
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Come funziona it Checksum di 

MLX 

Spett. Redazione , 

sono uno vostra oiibonoia fin dai primo 
numero, ed io e mìo fratello seguiamo 
/a rivisto con interesse perché contiene 
programmi facili da copiare grazie ad 
OH USI ed MLX 

A proposito di quest ultimo , non capisco 
come viene calcolato il valore di check 
sum ne//a linea 500. e questo mi servi- 
rebbe per fare delle prove r Potere spie- 
garmelo e fare /'esempio con uno rigo dì 
programma ? 

Licia Canal 

H- MLX calcola il checksum dopo che 
sono stati inseriti ì primi sei numeri di 
una linea e lo confronta con 11 settimo: 
se è uguale, passa alla linea successiva, 
mentre se è diverso stampa un messag- 
gio d'errore e richiede che venga ridigi- 
tata la lìnea errata. 

Per ogni numero di tre cifre digitato 
MLX incrementa una variabile - chia- 
miamola N di un valore dipendente 
dai codici ASCII dei tre numeri digitati, 
secondo la formula: 

N=N* 10+A-48 

dove A è il codice ASCII della singola 
cifra componente il numero. Questo va- 
lore viene poi immagazzinato in un vet- 
tore di 6 elementi ■ chiamiamolo Vfó). 

Il checksum chiamiamolo CK viene 
inizialmente calcolato sull'indirizzo della 
linea, secondo la formula: 

CK-1 4 N T(I / 25 6) *256 

dove I è V indirizzo della linea. 

Un ciclo che si ripete sei volte incremen- 
ta il checksum da) valore così calcolato 
ad un valore finale dato dalla formula: 

CK=(CK+A(J»AND255 

dove J è la variabile del ciclo. 


Facciamo un esempio pratico su una 
linea di MLX; 

49152:011,008,000,000,158,050,227 
i codici ASCII di 011 sono 48 49 49 

I codici ASCII di 008 sono 48 48 56 
i codici ASCII di 000 sono 48 48 48 
i codici ASCII di 000 sono 48 48 48 
i codici ASCII di 158 sono 49 53 56 
i codici ASCII di 050 sono 48 53 48 

Inizialmente N varrà 0. 11 confronto sul 
primo numero darà: 

14=0*10+48-48=0 
NH)’ 10+49-48=1 
N= 1*1 0+49-48-1 1 

II vettore A per il primo elemento con 
terrà allora il valore 11: A{0)=1 1. N 
viene posto nuovamente a zero, e Si 
passa al secondo numero: 

N=0‘ 10+48-48=0 
14—0*10+48 48=0 
JN*0* 10+56-48=8 

Sarà così A (11=8. Procedendo così per 
gli altri quattro numeri si ottengono ì 
valori A (2)^0, A{3)=0, A{4)=158, 

Af5)-50. 

Viene ora calcolato il checksum per l'in- 
dirizzo: 

CK=49 1 52-JNT(49 1 52/2561*256=0 

Verranno poi effettuati gli incrementi 
sulla base del contenuto del vettore 
A(J): 

DU{0+niAND255=ll 
CK-(1Ì+S)AND255=19 
CK— ( 1 9+0)AND255=l 9 
C K =( 1 9 +0 1 A ND25 5=19 
CK=( 1 9+15SJA WD255= 1 77 
CK-( 1 77+50)AND255=227 

Come si vede, il checksum finale risulta 
227. corrispondente airultimo numero 



delta linea. Questi calcoli. laboriosi se 
fatti a mano, vengono effettuati in tem- 
po reale dal computer ogni volta che si 
digita una linea con MLX. Per produrre 
i listati in formato MLX noi disponiamo 
di un programma che opera il procedi 
mento inverso: caricato in memoria un 
programma in linguaggio macchina il 
nostro "MLX Inverso" legge con una 
serie di P££K il contenuto delle locazio- 
ni interessate, e per ogni sei locazioni 
calcola il checksum, che viene poi stam- 
pato come settimo numero nel listato. 
Ecco come, con un procedimento com- 
plicato, si rende semplice la digitazione 
di un listato 


Emulare il CI6 

Spett , Redazione, 

so che il C16 possiede un BASIC molto 
più completo dì quello disponibile sul 
C64. e pensavo alla possibilità di sa Ino re 
su disco l'intero contenuto della memo- 
ria del C16 dalla prima locazione all' ulti 
ma (compreso quindi Interprete BASIC 
e Sistema Operativo/, quindi con la seìe 
zione a banchi rendere 'pura RAM " il 
mio C64 e caricarvi la memoria del CJ6. 

Credete sia possìbile? 

Marco Citte ri eh etti 

R* Il C16 ed il C64 presentano differen 
ze hardware, oltre che software, tali da 
rendere pressoché impossibile questa 
operazione. Oltre a ciò, occorrerebbe 
scrivere un’apposita routine in linguag- 
gio macchina che provvedesse al carica- 
mento della memoria del C16 nel C64, 
dopo che quest'ultimo fosse stato reso 
"pura RAM", dal momento che sareb- 
bero state disabilitate anche tutte le 
routine di I/O del Kernal del C64. Inol- 
tre, la routine dovrebbe passare il con 
frollo al Sistema Operativo del CI6 una 
volta che Questo fosse stato caricato in 
RAM, 
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Piccola guida per 
l'input 
dei prograi 


Min 


M olti dei programmi listati da SUPERCOMMO- 
DORÈ contengono particolari caratteri di control- 
lo (controllo cursore, tasti colore, video-inverse, ecc.J. 
Per rendere chiaro ciò che dev'essere battuto quando 
è necessario inserire uno dei suddetti caratteri sono 
state stabilite le seguenti convenzioni. 

Generalmente i listati per VIC 20 e C64 contengono delle 
«parole» racchiuse tra parentesi graffe j j; tali paroje 
rappresentano particolari caratteri di controllo: [GlO| 
significa premere il simbolo del cursore verso il basso, j 5 
SPÀZI | vuol dire battere 5 volte la barra-spazio. 

Per indicare che un tasto dev’essere «shiftato», cioè 
premuto insieme al tasto SHIFT, nel listato il simbolo 
di questo tasto sarà sottolineato. 

Per esempio S significa che dev’essere premuto il tasto 
S mentre è abbassato il tasto SHIFT. 

La manovra farà apparire sullo schermo un piccolo 
«cuore». 

Trovando un simbolo sottolineato chiuso tra parentesi 
graffe (esempio { IO N ( dovrà essere interpretato come 
«premere il carattere indicato per il numero di volte 
che lo precede nelle parentesi» nel nostro esempio 
premere IO volte il tasto N «shiftato». 

Se il tasto da premere è indicato tra le parentesi [()] 
vuol dire che lo stesso dovrà essere premuto mentre 
è premuto il tasto «Commodore» (il tasto «Commodo- 
re» è quello posto nell'angolo in basso a sinistra). 

Se il tasto scritto tra ( ( >J è preceduto da un numero, 
ciò significa che il tasto dev’essere premuto per il nu- 
mero di volte indicato. 


Raramente si potrà trovare un carattere alfabetico soli- 
tario racchiuso tra parentesi graffe. Tale carattere sul 
C64 può essere battuto mentre è premuto il tasto 
CTRL. 

Ad esempio j A ] sta ad indicare la sequenza CTRL- A. 
A proposito del «modo virgolette» è nota la possibilità 
di muovere il cursore sullo schermo con i tasti CRSR. 
Ogni tanto i programmatori desiderano muovere il cur- 
sore durante l’esecuzione del programma. E per que- 
sto motivo che nei programmi sì troveranno dei (SIN }, 
j HOME } e \BLVl 

L'unico modo perché il calcolatore distìngua il coman- 
do diretto da quello inserito nel programma è il «modo 
virgolette». Premendo il tasto «virgolette» (tasti SHiFT 
2) il calcolatore si predispone appunto in «modo virgo- 
lette». 

Battendo un carattere qualsiasi cercando poi di cor- 
reggerlo muovendo il cursore, si otterrà solo un trat- 
to verticale in un quadratino inverso. Questo è infat- 
ti il simbolo del cursore a sinistra nel «modo virgolette». 
L'unico comando di editing non utilizzabile all'interno 
di un programma è il DEL, Battendo nuovamente le 
«virgolette» il calcolatore lascia il «modo virgolette». Si 
può accedere al «modo virgolette» quando inserite spa- 
zi nella Linea. 

In ogni caso, il sistema più semplice per uscire dal 
«modo virgolette» è quello di premere il tasto RE- 
TURN. 

Utilizzare la tabella che segue quando è necessario 
inserire comandi relativi al cursore e ai tasti colore. 


Quando leggete: 

Premete: Vedrete: 

Quando leggete: 

Premete: 

Vedrete: 

Quando leggete: 

Premete: 

Vedrete: 
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La tentazione è forte. 96 CV pronti su ogni percorso, 
180 km/ h t 9.9 secondi do Oa 100 km/h. Brillante, spor- 
tiva, deciso, fiasco guardarla. Carreggiata larga, 
pneumatici radiali a profilo nbassata 185/60 HR13 su 
cerchi in lego da 6~ Profila aggressivo, bderenza per- 
fètta. Basta guidarla. 

XR2 è tecnologia Ford. Trazione anteriore, propul- 
sore 16 CVH, 4 cilindri monoalbero a camme in testa, 5 
marce, freni anteriori a disco autoventilanti sospensio- 
ni rinforzato con barra stabilizzatnce posteriore. 

XR2. Dura , se/vqggta, anzi dottissima. Basto sedera. 

Sedili anteriori rigorosamente ergonomici rivestiti con tes- 
suti esclusivi sedile posteriore a nbaifamerrto frazionato, 
sfrumen fazione e votante sportivi, orotagto digitale 
multifunztone, fan ausiliari di profondità, vela atomici, 
apertura elettrica del bagagliaio. 

XR2. AI di sopra delie parti. 

Tutte te vertere Ford sona coperte do pararne l-3-ó [un anno d> 
gononzro es tensjh-te a !» con 'la Lungo Protezione' « se r onrn d 
garanzia contro fa corrosione petbronte) e assistete in o Ut* IOOQ 
punii d* witzn. Finanziamenti Ford Credi * cetvcrfv un Leasing 
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Tecnologia e temperamento. 




La piccola guida 
del principiante 


Che coi'è un programma? 

lì solo computer non può compiere alcuna operazione. 

Un computer possiede potenzialità, ma, come una macchina 
senza benzina, senza un programma non può funzionare. 
La maggior parte dei programmi pubblicati su SUPER- 
CO M MODO RE per i computer Commodore sono scritti in 
un linguaggio per calcolatori chiamato BASIC. H BASIC è 
facile da imparare ed è disponibile, di serie, nel VIC 20 e 
nel Commodore 64. 

Programmi BASIC 

Ogni mese SUPERCOMMODORE pubblica programmi sia 
per il VIC 20 che per il C64. Tanto per cominciare, se 
possiedi un VIC 20 copia solo i programmi scritti per la tua 
macchina, indicati con ‘‘versione per VIC 20”. Piu tardi, 
quando avrai acquisito esperienza con il BASIC del tuo com- 
puter. potrai cercare di copiare e convertire programmi 
scritti per altri calcolatori. Diversamente dal linguaggio cor- 
rente, che può essere variamente Interpretato, il BASIC di 
solito ha un solo modo corretto per indicare qualcosa. 

Ogni lettera, carattere o numero ha il suo significato. 

Un errore banale è costituito dalla sostituzione del numero 
*0” con la lettera m O” oppure il carattere minuscolo *1" 
invece del numero “I” o ancora il carattere maiuscolo “B" 
con il numero “8", 

Devi anche inserire tutta la punteggiatura, i due punti (:) e 
le virgole, copiando esattamente ciò che appare sulla rivista. 
Gli spazi possono essere importanti. Per essere sicuro copia 
lì listato esattamente come si presenta. 

Le parentesi e 1 caratteri speciali 

L’eccezione per questa regola di copiatura sì presenta quan- 
do incontrerai indicazioni tra parentesi, quali: “(GIU)", 
Ogni cosa compresa tra parentesi è un carattere speciale 
oppure un carattere che non può essere facilmente prodotto 
con la stampante. Incontrando un carattere dì questo tipo 
fai riferimento alla “Piccola guida per l’input dei program- 
mi'*. 

Le ittruifoni DATA 

Alcuni programmi contengono una sezione, o delle sezioni, 
di istruzioni DAT A. Queste linee di istruzione forniscono le 
informazioni dì cui il programma ha bisogno. 

In alcuni casi le istruzioni DATA costituiscono il programma 
vero e proprio, in altri contengono codici grafici. Queste 


linee sono particolarmente soggette agli errori. Se un solo 
numero in una linea di istruzione DATA è sbagliato, il calco- 
latore potrebbe “piantarsi” o distruggere il programma. La 
tastiera e il tasto STOP appaiono inattivi e lo schermo com- 
pletamente vuoto. Non lasciarti prendere dal panico. Non 
si è verificato alcun danno. 

Per riprendere il controllo devi spegnere il computer e suc- 
cessivamente riaccenderlo. Ciò cancellerà qualsiasi pro- 
gramma presente in memoria, per cui è sempre necessario 
fare il SAVE del tuo programma prima di comandare 11 
RUN. 

Se il computer si ferma, puoi caricare (LO A DJ il programma 
e cercare Terrore. 

A volte, quando il programma viene ‘‘lanciato 1 ' „ un'istruzione 
DATA errata può causare un messaggio di errore. 

Il messaggio di errore potrebbe riferirsi alla linea di program- 
ma che legge (READ) il contenuto delle istruzioni DATA, 

Con* conoscere II computer 

Dovresti prendere confidenza con U computer prima di pro- 
cedere alla copiatura del programma. 

Impara le istruzioni che si usano per memorizzare e richia- 
mare i programmi da nastro o da disco. Dovrai conservare 
una copia del tuo programma, se non vorrai copiarlo ogni 
volta che lo devi usare. Impara ad usare le funzioni di “edi 
ting” della tua macchina. Come puoi correggere un errore? 
Puoi sempre ricopiare Ea linea e in questo caso devi sapere 
come procedere. Sapresti come inserire i caratteri in “inver- 
se”, i caratteri minuscoli e quelli dì controllo? 

Tutto ciò è spiegato nel manuale del calcolatore. 

Un veloce ripasso 

1) Copia il programma una linea alla volta, con ordine. 
Premi RETURN alla fine di ogni linea. Usa il tasto “DEL” 
per correggere gli errori. 

2) Confronta la lìnea copiata con quella presente nella rivi- 
sta. Puoi controllare Tìntero programma nel caso in cui 
sì presenti un errore quando esegui il RUN. 

3) Accertati di aver inserito le istruzioni tra parentesi graffe 
con gli appropriati caratteri di controllo (fai riferimento 
alla “Piccola guida per T Input dei programmi” che trovi 
in questa stessa rivista). 

Siamo spiacenti di non poter rispondere singolarmente alle 
richieste dì informazioni circa i programmi, prodotti o servizi 
apparsi su SUPERCOMMODORE. 
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Il nuovo €16 c destinato, almeno 
sul medio termine, a sostituire al 
WG 20* 

Rispetto a quest 'ni timo presenta 
infatti innovazioni tali da far ap- 
parire ormai obsoleto il fratelli- 
no minore* 

L a confezione con la quale viene f Gi- 
oito il C16 comprende consolle, tra- 
star matore/alimen tatare, cavetto di 
collegarne nto con il televisore e manua- 
le d'uso in italiano. 

La consolle sì presenta con uno chassis 
identico a quello del VIC 20/C64, ma 
di colore nero opaco con tasti grigi. La 
meccanica della tastiera è quella a cui 
siamo abituati nei computer Commodo- 
re. con un ottimo tocco dei tasti, che 
consente di usare facilmente il compu 
ter anche per la stesura ed il trattamen 
to di lunghi testi. Anche qui è presente 
al completo il set di caratteri grafici 
Commodore, con questi ultimi serigra- 
fati sulla faccia anteriore dei tasti. In 
modo maiuscolo * quello standard al 
l'accensione del computer - il carattere 
grafico serìgrafato sulla destra del tasta 
è ottenibile con la pressione di quest'ul- 
timo insieme allo $hlft H mentre quello a 
sinistra si ottiene con la pressione con 
temporanea del tasto desiderato Insie- 
me al tasto con il logo Commodore, 
Passando invece al set minuscolo, pre 
mendo contemporaneamente Shift e ta 
sto Commodore diventa ottenibile solo 
il carattere grafico serìgrafato sulla sin! 
stra dei tasti, mentre premendo un ta- 
sto insieme allo Shift si otterrà il caratte- 
re maiuscolo. 

I tasti di controllo del cursore sono stati 
raddoppiati e spostati: ora è disponibile 
un singolo tasto per ogni direzione di 
spostamento dei cursore (non occorre 
più premere anche lo Shift per spostarsi 
a sinistra od in alto}, ma la nuova posi- 
zione dei tasti crea per i primi tempi 
qualche sconcerto in chi è abituato ad 
usare II VIC od il C64: i tasti cursore 
ora occupano infatti le posizioni prece- 


dentemente occupate da e 

CLR/HGME. Malgrado ì tasti cursore 
siano raddoppiati, il numero globale di 
tasti è rimasta invariato e si sono verifi- 
cati molti spostamenti. Ora è disponibi 
le anche un tasto ESC al posto del Back- 
space ed un tasto HELP al posto di 
F7. il tasta RESTORE è scomparso, fa- 
cendo posto ad un^CLR/HOME delle 
stesse dimensioni, È comunque facile 
abituarsi rapidamente alla nuova posi- 
zione dei tasti sul CI6, 

Un'altra novità è un tasto dì reset (cold 
start) del computer, posto sul fianco de- 
stro della consolle a lato deH T interrutta- 
re di accensione. 

Nella parte posteriore del computer è 
scomparsa la User Port e sono invece 
presenti una porta per cartucce, V uscita 
TV, l’uscita video per monitor, la porta 
seriale per il drive o stampante ed infine 
la porta di interfaccia per il registratore. 
A proposito di quest" ulti ma c’è da nota- 


re che essa è stata modificata rispetto 
a quella presente sul VIC/C64, obbli- 
gando l'utente all'acquisto del registra- 
tore dedicato al C16 (per il resto prati- 
camente identico al solito Datassette), 
Stesso discorso per le due porte Joy- 
stick che ora obbligano all" acquisto di 
prodotti Commodore. Stupisce che una 
casa ritenuta seria come la Commodore 
faccia ricorso a questi espedienti per 
vendere qualche registratore e qualche 
joystick in più,. 

fi cavetto di alimentazione, aneh’esso 
con connettore diverso da quello del 
VIC/C64, sì collega al solito posto sul 
fianco destro della macchina. 

Le funzioni dei nuovi tasti. 

ESC: non è, come il nome potrebbe far 
pensare, un tasto di reset (warm start) 
del computer, ma permette di accedere 
ad un certo numero di funzioni di editing 
dello schermo: premendolo contempo 
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rancamente ad upo tra 18 tasti diversi 
si accede a varie funzioni dì gestione 
finestre video, scrolling dello schermo, 
pulizia di quest 'ultimo, ecc, 

FLASH: premendo CTRL +V si accede 
alla funzione di FLASH ON, che provo- 
ca il lampeggio di tutto ciò che viene 
successivamente digitato con la fre 
quenza del cursore. Premendo CTRL 
+V si accede a FLASH OFF che disatti- 
va il lampeggio. 

HELP: premendo questo tasto dopo 
aver ricevuto un messaggio di errore in 
un programma BASIC, verrà listata la 
linea in cui si è verificato Terrore e lam- 
peggerà la parte di linea a partire dalla 
quale si è verificato Terrore. Purtroppo 
questo tasto ha scarsa utilità nel caso 
si riceva uno dei messaggi d'errore più 
diffusi: il tragico Allega] quantity error 
In XXXX”, tipico di lìnee che leggono 
istruzioni DATA e quindi operano una 
POKE del valore letto. In una certa lo- 
cazione dì memoria. In un caso come 
questo, premendo HELP lampe ggerà la 
parte di linea contenente la POKE, non 
fornendo così alcun aiuto su dove cerca 
re il valore errato nelle istruzioni DA 
TA. 

TASTI FUNZIONE: mentre nel VIC/ 
C64 questi tasti hanno semplicemente 
associato un codice ASCII, nel C16 ten 
gono fede alla loro denominazione, in 
quanto ad ognuno di essi è realmente 
associata una funzione, e cioè un istru- 


zione BASIC. Le funzioni associate a 
questi tasti sono GRAPHIC (accede ad 
una pagina grafica), DLOAD (carica da 
disco), DIRECTORY (lista su video la 
directory dei disco senza perdita del 
programma in memoria), SCNCLR 
(cancella lo schermo), DSAVE (salva su 
disco), RUN e LIST, Come già detto, 
l’ultimo tasto funzione corrisponde ad 
HELP, Tutti i tasti funzione sono ridefi 
ntblh da BASIC usando l'istruzione 
KEY. 

RESET: la pressione del tasto di reset 
sul fianco destro del computer provoca 
una chiamata alla routine di cold start 
del Sistema Operativo del CI 6. ripor- 
tandolo nelle condizioni del momento di 
accensione. 


Il BA§IC 

Il BASIC è il punto forte del C16. Un 
gran numero di nuove istruzioni sono 
state implementate rispetto al BASIC 
del VIC/C64, permettendo una com- 
pleta gestione della grafica in alta riso- 
luzione (GRAPHIC, DRAW, CHAR, 
BOX, CIRCLE, PAINT, LOCATE, 
SCALE, SSHAPE, GSHAPE), del suo- 
no (VOL. SOUND), dell'unità a dischi 
(BACKUP, COLLEGI, COPY. DI REC 
TORY, DLOAD, DSAVE, HEADER. 
RENAME, SCRATCH). Sono finalmen- 
te disponibili T1F-THEN-EL5E ed il DO- 
LOOP WHILE-UNTIL-EXIT, T AUTO 


Una prima 
occhiata al 
Commodore C16 

(che genera numeri di linea), il RENUM- 
BER, il DELETE, il COLOR (colore fon- 
do, bordo, testo, multicolore e grado di 
luminanza), la GETKEY (aspetta che 
venga premuto un tasto qualunque), la 
JOY (controllo del joystick), la PRINT 
US1NG, le RÉSUMÉ e TRAP (per la 
gestione degli errori), e le TRON e 
TROFF (per il Trace su video). 

Una nota di plauso è meritata dalTistru- 
zlone MONITOR, che attiva appunto 
un Monitor (simile al SUPERMONITOR 
da noi pubblicato per il C64), con tutte 
le possibilità che questo apre a eh* pro- 
grammi in linguaggio macchina. 

Il C16 non dispone tuttavia dì 5PRITE 
e delle notevoli possibilità del chip sono- 
ro SID implementato sul C64, ma, con 
istruzioni grafiche e sonore così potenti, 
non sfigura certamente al suo fianco. 
Lo spazio disponibile per programmi 
BASIC ammonta a 12277 byte, più che 
sufficienti per programmi dì media lun- 
ghezza, e lo schermo dì 25 righe per 40 
colonne permette una buona visualizza- 
zione dei testi e dei grafici (la risoluzione 
grafica di 200 per 320 pixel è uguale a 
quella del C64). 

Per concludere, la solita nota di demeri- 
to sul manuale fornito in dotazione che, 
oltre a non fornire nemmeno a grandi 
linee una mappa di memoria della mac- 
china, non fa cenno - e questo è grave 
- su quali siano le istruzioni implemen- 
tate nel Monitor incorporato. 


Per ricevere le riviste arretrate 
di SUPERCQMMQDORE co» ceemetta 
compiute e spedita 11 coupon qui motto! 
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di A* Borra 


Come sfruttare 
la tecnica 
di 

dei programmi 
nel VIC 20 
e nel C64 


L'idct «Ila base di questo artico- 
lo deriva dal metodo di memorie- 
lezione dei programmi realizzati 
nei VIC 20 e nel C64. 

Vedremo la particolare come 
•fruttare alcune caratteristiche 
per ottenere una prima routine 
che permetta di evidenziare i 
commenti (rendendo pia leggibi- 
li 1 listati) ed una seconda che 
abbia lo scopo di proteggere un 
qualsiasi programma residente 
in memoria (protezione "stati* 
ca”, come vedremo). 

Entrambe le routine (realizzate 
per 11 VIC 20) funzionano anche 
sai C64. 

Memorizzazione di on 

programma 

U n programma BASIC viene menno 
rizzato come una successione di 
blocchi (o record) di lunghezza variabile 
a partire dall* inizio della memoria, Ogni 
record rappresenta una linea di pro- 
gramma ed ha la seguente struttura: 

1* 2 E byte: indirizzo di link (1* byte +2* 
byte* 256) 

3*4* byte: numero della linea BASIC 
(3* byte+4* byte*25ó) 


5*-{n 1)" byte: istruzioni 

n* byte: 0 (^separatore di record) 

L'indirizzo di link permette 11 concatena- 
mento di due linee, andando a puntare 
all'Indirizzo di link della istruzione suc- 
cessiva * 

Poiché l’ultimo record è seguito da due 
byte contenenti zero, l'ultima linea codi- 
ficata punta a tali due byte. 

Per capire bene à funzionamento del 
link, provate a digitare questo semplice 
programmino (senza modificare nul- 
la!): 

10 A=5 

20 PRIMI “A VALE”; 

30 PRINTA 

provatelo, listatelo e quindi battete: 

A ^ PEEK {43} + PEEK (44) * 256 : 
POKEA, PEEK (A) + 15 : LIST +(R) 

e vedrete che la linea 20 non compare 
più. nonostante ci sia ancora (e basta 
dare il RUN per sincerarsene). In effetti 
abbiamo modificato l'indirizzo di link 
della prima istruzione, facendo in modo 
che puntasse alla terza e non più alla 
seconda e così la routine di LIST non 
ha "visto” la seconda istruzione. 

La routine di RUN, invece, ha conside- 


rato le istruzioni così come erano in me- 
moria senza considerare il link, 
Consideriamo ora la codifica della eti- 
chetta della linea BASIC: in teoria si 
potrebbero avere etichette tra 0 e 
65535, però in pratica il massimo nu 
mero di linea ammesso è 63999. Quindi 
nessuna istruzione di etichetta maggio- 
re può essere immessa (ma nemmeno 
cancellata!) in modo diretto. Nulla ci 
vieta, perd T di modificare l'etichetta di 
una linea dì un programma già residen 
te in memoria mediante delle POKE. 
Tornando al programmino considerato, 
provate a battere: 

A = PEEK (43) + PEEK (44) * 256 : 
POKEA +■ 2,255 : LIST +(R} 

e osserverete che ora la prima istruzio 
ne ha 255 come etichetta. 

La cosa però non è molto “pulita": pro- 
vate infatti a battere: 

40 END +(R) 

e a listare: tale riga è diventata la pri- 

ma, nonostante la presenza di ben due 
righe di etichetta minore! Ma la cosa 
più grave è un’altra: provate ad esem 
pio a digitare: 

GOTO 20 +(R) 
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vedrete comparire il messaggio "UN 
DEF’D STATEMENT", nonostante la 
riga 20 sia ben presente] Il problema è 
che i! BASIC del VIC le del C64) va a 
considerare le etichette delle righe pre 
senti in memoria partendo dalla primo 
che trova: in entrambi i casi la presenza 
dell'etichetta 255 lo fa agire in modo 
apparentemente non corretto. 

Quindi bisogna fare molta attenzione 
nel modificare un programma già resi- 
dente in memoria tramite le POKE, 

E veniamo infine alla codifica delle istru- 
zioni, Come si vede dallo tabella, ogni 
carattere ha un suo codice ed inoltre le 
parole riservate del BASIC sono coditi 
cate con un opportuno valore, in modo 
da ridurre l'occupazione di memoria dei 
programmi. Sempre dalla tabella si os- 
serva che alcuni codici ( 1-31 e 204) non 
corrispondono né ad una parola BASIC 
né ad un carattere. Alcuni di tali valori 
hanno però degli effetti particolari. 

A questo punto abbiamo tutte le cono- 
scenze necessarie per affrontare le due 
routine cui ho accennato, le quali, come 
si sarà capito, prendono spunto dalla 
possibilità di modificare un programma 
già residente in memoria agendo diret- 
tamente sui record rappresentanti le li- 
nee del programma. 

Come evidenziare i 
commenti 

I commenti (ottenuti mediante l'istruzio- 
ne REM) sono una parte molto utile in 
un programma BASIC, in quanto spie- 
gano il flusso di controllo ed aiutano la 
ricerca di particolari routine. 

Certo che se tali commenti fossero "vi- 
deati" in reverse o in un colore diverso 
dal colore delle istruzioni (esempio in 
rosso o in verde), allora sarebbe ancora 
più utile il loro utilizzo, diventando im- 
mediata la loro individuazione. Si dà il 
caso che proprio alcuni dei codici non 
utilizzati dalla routine di codifica dei 
programmi permettano di cambiare co- 
lore o dì videare in re verse. Tali codici 
sono: 

5 scrive in bianco 
28 scrive in rosso 

30 scrive in verde 

31 scrive in blu 

18 scrive jn re verse 

1 primi quattro codici sono globali, nel 
senso che modificano il colore anche 
delle linee seguenti quella in cui compa 
iono, mentre il codice di reverse è loca- 
le, cioè la riga seguente viene mostrata 
nei caratteri normali. 

Tali codici non vengono riconosciuti dal 
la routine di decodifica delle linee BA 
SIC e quindi possono essere posti solo 
dopo una istruzione di REM (codice 
143). E ciò ci basta. 

Se. infatti, dopo aver digitato un pro- 
gramma, andiamo ad inserire dopo ogni 
codice 143 il codice 28 e poi inseriamo 
il codice 31 prima dello 0, che indica la 
terminazione della riga, otteniamo tutti 
i commenti di colore rosso, senza pre- 


TAVOLA Gl CODIFICA DEI CARÀTTERI 


o 

FINE LINEA 

64 

Q 

128 END 

132 

TAN 

1 

NON 

USATO 

m 

A 

129 FOR 

193 

ATM 

2 

NOTI 

USATO 

66 

B 

130 WEXT 

134 

REEK 

3 

MQN 

USATO 

67 

C 

13! DATA 

195 

LEM 

4 

NON 

USATO 

68 

D 

132 INPUT i 

196 

STR* 

5 

NON 

USATO 

69 

E 

133 INPUT 

137 

VAL 

€ 

NON 

USATO 

70 

F 

134 DIN 

19© 

ASC 

7 

NON 

USATO 

71 

& 

135 READ 

139 

CHR» 

8 

NOTI 

USATO 

72 

H 

136 L£T 

20© 

leftz 

9 

NON 

USATO 

73 

I 

137 DOTO 

203 

RIC-HTi 

10 

NON 

USATO 

74 

J 

138 RUM 

282 

Ni Di 

11 

NON 

usato 

75 

r 

139 IF 

203 

GO 

12 

NON 

USATO 

76 

L 

140 RESTOSE 

204 

NON USATO 

13 

NON 

usato 

77 

fi 

i -n oosue 

205 

POR 


NON 

USATO 

73 

N 

142 RE TURA 

206 

NEXT 

15 

NON 

USATO 

79 

O 

143 RE fi 

207 

DATA 


NON 

USATO 

80 

P 

144 STOP 

283 

INPUT* 

17 

NON 

USATO 

81 

Q 

145 OH 

289 

I NPUT 

18 

NON 

USATO 

82 

P 

146 UAtT 

210 

DIN 

19 

NON 

USATO 

83 

3 

147 LO AD 

211 

PEPO 

20 

NON 

USATO 

34 

T 

149 SA VE 

212 

LET 

21 

NON 

USATO 

85 

U 

149 VERIFV 

213 

GOTO 

22 

NON 

USATO 

36 

V 

150 DEE 

214 

RUM 

23 

NON 

USATO 

37 

M 

151 FQKE 

215 

I F 

24 

NON 

USATO 

83 

X 

152 FRINTt 

216 

RE S TORE 

25 

NON 

USATO 

89 

V 

153 FRINÌ 

217 

GOSUB 

26 

NON 

USATO 

93 

z 

154 CQNT 

213 

RETURN 

27 

NON 

USATO 

91 

i 

155 LIST 

219 

REM 

28 

NON 

USATO 

92 

e 

156 CI. R 

228 

STOP 

29 

NON 

USATO 

93 

i 

157 CMO 

221 

OH 

30 

NON 

USATO 

34 

t 

158 SYS 

222 

WAIT 

31 

NON 

USATO 

95 

+■ 

159 OPEN 

223 

LORO 

32 

*:SPA2I0> 

96 

— 

160 CLOS€ 

224 

SAVE 

33 

| 


97 

4 

161 GET 

225 

VER I FY 

34 



98 

1 

162 NEW 

226 

CCP 

35 

* 


99 

— 

163 irte- 

227 

F*OKE 

36 

I 


100 

— 

164 TO 

223 

FRINÌ * 

37 

X 


101 

— 

165 FN 

229 

FRIMT 

3S 

e 


102 

— 

166 SRC< 

238 

COUT 

39 

* 


103 

1 

J67 THEN 

231 

LIST 

40 

< 


10.- 

1 

168 MOT 

232 

CLR 

4L 

> 


105 

-, 

169 STER 

233 

CIO 

42 

* 


106 

%. 

170 * 

234 

SV$ 

43 

4- 


107 

j> 

171 - 

235 

OPEN 

44 

» 


108 

L_ 

172 4 

236 

CLOSE 

45 

- 


139 

X 

173 / 

237 

GET 

46 

, 


1 10 

y 

174 f 

23© 

NEW 

47 

/ 


11 1 

r 

175 AMD 

239 

TAD-: 

48 

8 


112 

“i 

176 OP 

240 

TO 

49 

1 


113 

• 

177 > 

241 

FN 

50 

2 


114 

_ 

178 * 

242 

SPCC 

51 

3 


115 

m 

179 < 

243 

THEM 

52 

4 


116 

i 

ISO SGH 

244 

NQT 

53 

5 


117 


3 SI 1NT 

245 

step 

54 

€ 


1 1S 

X 

182 À&S 

246 


55 

y 


119 

0 

133 JJSR 

247 

- 

56 

8 


120 

4 

184 EPE 

243 

4 

57 

$ 


121 

.1 

1&5 POS 

249 

/ 

53 



122 

* 

186 SOR 

250 

f 

59 

; 


123 

4 

187 RMO 

251 

AND 

60 

< 


124 

1 

188 LOG 

252 

OR 

61 



125 

1 

189 E^P 

253 

> 

62 



126 

(I 

190 COS 

254 

D 




127 

T 

191 SIN 

255 

If 


giudicare Tesecuzione del programma. 
Naturalmente, nel fare ciò bisogna stare 
attenti che il fatidico codice 143 non 
capiti nei 4 byte indicanti il link o il 
numero di etichetta della linea BASIC, 
pena risultati catastrofici. 

In pratica. Fide a è questa: data per 
esempio la linea 

10 REMFìPPQ 

che viene codificata: 


LB LA 10 0 143 80 73 80 80 79 0 

(LB=Iink basso, LA “link alto) si vorreb- 
be ottenere: * 

LB' LA* 10 0 143 28 80 73 80 80 79 
31 0 

In questo modo, però, bisogna spostare 
dì posto in memoria i vari record c quin- 
di vanno aggiornati gli indirizzi di link di 
ogni riga del programma. È invece più 
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facile scrivere i codici di controllo “so- 
pra" il primo e l’ultimo carattere del 
commento, in modo da ottenere: 

LB LA 10 0 143 28 73 80 80 31 0 

così, sul video, si leggerebbe solo 

10 REM1PP 

con u IPP n scritto in rosso. Ma questo 
non crea grossi problemi: è sufficiente 
porre un carattere qualsiasi (per esem- 
pio Tasterisco) prima e dopo il commen- 
to: 

10 REM-PIPPG* 

11 programma riportato in (ondo allerti- 
celo permette appunto di evidenziare i 
commenti di un qualsiasi programma 
residente in memoria, operando prò 
prio come descritto. Il programma BA- 
SIC crea una zona protetta alla fine deb 
la memoria: 77 byte nei quali carica una 
routine in linguaggio macchina (che e 
quella che modifica : commenti}. Alla 
fine il programma BASIC segnala a 
quale indirizzo parte la routine (attivabi- 
le mediante urta SYS) Essendo li pro- 
gramma BASIC e la routine scrìtte in 
forma paramedica, funzionano sia sul 
VIC con qualuque tipo di espansione 
che sul C 64, Il programma BASIC dopo 
la sua esecuzione non serve più: si può 
digitare NEW e caricare o digitare un 
nuovo programma, 

La routine si può attivare In qualsiasi 
momento, poiché rimane in memoria in 
zona protetta fino allo spegnimento del- 
la macchina. 

Si può notare che: 

- la routine termina se non c'è nessun 
programma in memoria o dopo aver 
considerato tutte le righe del program- 
ma; 

- se un record non contiene il codice 
143 (=REM) tra i codici delle istruzioni, 
si considera il record successivo; 

- una linea BASIC può contenere an- 
che altre istruzioni oltre al comando 
REM (esempio 100 PR1NTA: REM* 
STAMPA*}; 

- se un REM non ha commento (esem- 
pio 100 REM}, non viene modificato 
nulla e si passa al record successivo; 

- in caso di REM con commento vengo- 
no modificati il primo carattere dopo il 
REM e l’ultimo carattere prima dello 0; 

- se un REM ha un commento di un 
unico carattere (esemplo 100 REMI, 
questo viene modificato due volte; 

- la routine può essere chiamata più 
volte, in quanto “mangia" due caratteri 
Sólo la prima volta che opera su un re- 
cord. 


Dunque, la routine effettua molti con- 
trolli, poiché un suo eventuale errore po- 
trebbe pregiudicare in modo ìrrepara bi- 
le li programma residente in memoria. 
Consigliamo quindi di prestare molta at- 
tenzione nella battitura de! programma 
BASIC di caricamento e di salvarlo pri- 
ma di eseguire la routine stessa. 

Per chi ha 11 C64 cè il problema che il 
colore “standard" (cioè quello che si ha 
all’accensione della macchina) delle 
scritte è l'azzurrino, e questo non è un 
colore ottenibile con il metodo appena 
descritto. Quindi bisogna accontentarsi 
di ottenere i commenti solo in reverse, 
poiché se si cambia il colore del com- 
menti, non si riesce a tornare alla scrit- 
tura in azzurro del resto del listato. Va 
quindi modificala la linea 1130 del pro- 
gramma (quella contenente il codice di 
ritorno alla scrittura “standard", che è 
31 per il VIC) in questo modo: 

1130 DATA 042 

che mette un asterisco come ultimo ca- 
rattere del commento. 

Nel caso ci si dimentichi l'Indirizzo di 
partenza della routine, questo si può 
ri ottenere mediante: 

PR1NT PEEK (55 ) +PEEK (56) *256+ ( R) 

Protezione "statica” di ttn 
programma 

I due articoli di Alessandro Guida ap- 
parsi in Personal Software n* 5 e n* 14 
spiegano molto bene come disabilitare 
il tasto di RUN/STOP e come evitare 

II LIST di un programma. L'unico difet- 
to è che la protezione dal LIST si può 
attuare solo durante F esecuzione del 
programma e non prima: se si accende 
la macchina e sì carica un programma, 
si può sempre listarlo prima della sua 
esecuzione. 

In questo senso le protezioni descritte 
possono intendersi come dinamiche, in 
quanto hanno luogo solo dopo aver da- 
to i! RUN al programma. Se invece si 
sfrutta opportunamente il modo con cui 
viene memorizzato un programma, è 
possibile ottenere una protezione "stati- 
ca" dal listing, nel senso che il program 
ma non è mai listabìle prima della sua 
esecuzione. 

Vedremo però che il programma sarà 
listabtle DOPO l'esecuzione, ma a que- 
sto punto gli utili “trucchi" di Guida per- 
mettono di completare l’opera, renden- 
do più sicuro il proprio software, 

L’idea è sempre quella di utilizzare 
qualcuno di quei codici che non vengo- 
no utilizzati dalla routine di codifica dì 
una linea BASIC, In particolare 2 codici 


Come sfruttare 
la tecnica 
di memorizzazione 
dei programmi 
nel VIC 20 e nel C64 

fanno al caso nostro: 

20: corrisponde alF azione del tasto 
1NST/DEL 

204: stampa “5YNTAX ERROR* e ter- 
mina il listing 

Si può inoltre sfruttare il fatto che una 
linea non può essere né inserita né can- 
cellata, se la sua etichetta è maggiore 
di 63999. 

D'altra parte non e possibile avere co- 
me prima istruzione una linea con eli» 
chetta minore di 64000, altrimenti la 
protezione dal LIST non sarebbe perfet 
ta: l'Idea è allora quella dì modificare 
tale etichetta durante l'esecuzione. È 
sufficiente che la seconda linea del pro- 
gramma si occupi dì ciò. Dunque, per 
riassumere, un programma per essere 
protetto in modo “statico" dal LIST de 
ve avere: 

- come prima riga: istruzione di etichet- 
ta maggiore di 63999, con una islruzio* 
ne di REM seguita da un numero suffi- 
ciente di codici 20, tali da cancellare 
dal video le scritte della linea, e da un 
codice 204 per stampare “SYNTAX 
ERROR”; 

- come seconda riga: istruzione che 
cambia l'etichetta della prima riga. 

La cosa sarebbe però noiosa, se fatta 
per ogni programma: da qui l'idea di 
una routine “protettrice”, che aggiunga 
tali linee ad un qualsiasi programma re 
siderite in memoria. Tale routine (che 
viene caricata, analogamente alla rouli 
ne precedente, da un programma BA 
SIC in zona protetta, cioè gli ultimi 160 
byte della memoria utente} é realizzata 
in linguaggio macchina e in effetti non 
aggiunge alcuna linea: sì limita a modifi- 
care la prima linea (che deve avere un 
certo formato) “spezzandola” in due Ih 
nee, Vediamo come funziona la routi- 
ne: 

- la prima linea del programma da pro- 
teggere deve avere una prima istruzio- 
ne costituita da una REM seguita da 
ALMENO 53 caratteri (esempio 53 
asterischi). Altrimenti la routine non 
compie alcuna modifica; 

“ il link di tale linea punta al secondo 
record presente in memoria. Poiché la 
routine spezza tale primo record in due, 
l'indirizzo deve essere salvato per poi 
essere messo come link del record “1 
bis” (creato dalla routine); 

- bisogna calcolare il link del primo 
(nuovo) record. Tale calcolo è eseguito 
con estrema accuratezza per evitare er- 
rori; 

- la routine scrive la prima linea, met- 
tendogli 65535 come etichetta; 

- la routine scrìve la seconda linea: 
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4 * 

A= PEEK Ì43Ì + PEEK (44) * 256 : 
POKEA + 2.0 : POKEA + 3,0 : A = 0: 
REM 

mettendogli l come etichetta. L'azione 
di questa riga è quella di modificare, 
mettendola a 0, l'etichetta della prima 
riga, in modo da permettere (durante 
l'esecuzione del programma, ma non 
prima!) I GOTO, La variabile A viene 
azzerata nel caso sia utilizzata nel prò* 
gramma da proteggere. La REM viene 
posto nei caso la riga originale del prò- 
gramma (quella contenente almeno 53 
caratteri dopo la REM, per intenderci} 
avesse contenuto più di 53 caratteri. 
Quindi, per proteggere dal LIST un pro- 
gramma le azioni da compiere sono: 

- caricare in memoria la routine; 

— caricare il programma da protegge 
re; 


- verificare che tale programma non 
contenga istruzioni con etichetta 0 op- 
pure I; 

- aggiungere al programma una linea 
del tipo 0 REM seguita da 53 asterischi 
(almeno}; 

- attivare la routine in linguaggio mac- 
china mediante La SYS opportuna (esem 
pio: SYS PE£K(55)+ PEEK (56}*256} ; 

_ - verificare la protezione e quindi salva* 
re (PRIMA di eseguire!!}. 

Se qualcuno per curiosità volesse vede 
re la nuova riga creata dalla routine, 
può eseguire un qualsiasi programma 
protetto e quindi battere 0 (per cancel- 
lare la riga che impedisce il listing) e di- 
gitare 

LIST 1 -HR) 

Sia il programma BASIC che la routine 



tunzionano senza modifiche sia sul VIC 
20 (con qualunque tipo di espansione 
di memoria) che sul C64, 


Protettore di programmi 

0 rem********************* # * j 



srem 

0 

1 REM** 

# a 



ireifi 

189 

2 REM** 

* * 



srem 

190 

3 REM* * PROTETTORE DI PROGRAMMI 

a a 



s rem 

18 

4 REM** 

* * 



: rem 

192 

5 REM* * 

** 



t rem 

193 

6 REM** A. BORRA * 1984 

A A 



s rem 

1 70 

7 REM** 

* * 



: retri 

1 95 

8 REM** 

* * 



: rem 

196 

9 rem************************** 1 




; rem 

9 

100 PRINT TAB (255) TAB (182) "ATTENDERE" T 

AB (255) 

: rem 

73 

109 REM** CALCOLA PINE MEMORIA 

A A 



: rem 

65 

110 FM = PEEK (5 5) +2 56 *PEEK (56) 

;rem 

21 

1 20 A - INT ( (FM- 1 60J/256) : B 

= (FM- 

160) 

-A* 2 56 

; rem 

87 

129 REM** MODIFICA INIZIO VARIABILI * 

A 


srem 

201 

130 POKE 51,9 l POKE 52, A 

srem 

21 2 

739 REM** MODIFICA FINE MEMORIA 

a* 



srem 

1 45 

140 POKE 55, B S POKE 56, A 

srem 

221 

1 50 NF ■ FM- 1 60 

; rem 

190 

159 REM** CARICA ISTRUZIONI L-M 

* IN ZONA 

PROTETTA ** 

: rem 

37 

160 POR I - 0 TO 159 

; rem 

1 1 8 


170 READ V :rem TO 

1 80 POKE NF+I,V srem 82 

19Q HEXT srem 217 

200 FRI NT TAB (202) "PER ESEGUIRE:** : PRIN 
T TAB (27) "SYS M ;NF TAB120G) tram 184 

210 end srem 106 

999 REM* * ISTRUZIONI IN L.M. ** :rem 221 

1000 DATA 1 60,004, 1 77,043,201 , 1 43, 240,001 

,096,162 : rem 82 

1010 DATA 000, 200, 177,043,201 ,000, 208,001 
,096,232 srem 68 

1020 DATA 224,051,208,243, 1 60,001 , 177,043 
,133,252 srem 90 

1030 DATA 136,177,043,133,251,162,000,165 
,043,024 ‘ rem 91 

1040 DATA 105,017,144,001,232,145,043,165 
,044,224 :rem 87 

1050 DATA 000,240,003,024, 105,001 , 200, 145 
,04 3,200 : rem 55 

1060 DATA 169,255,145,043,200,145,043,200 
,162, 000 s rem 88 

1070 DATA 169,020,200,145,043,232,224,010 
,208,248 :rem 91 

1080 DATA 200,169,204,145,043,200,169,000 
,145,043 :rem 91 

1090 DATA 200,165,251,145,043,200,165,252 
,145,043 : r em 95 

1100 DATA 162,121,134,253,200,132,254,164 
,253,177 : rem 94 

1110 DATA 055,164,254,145,043,232,224,160 
,208,238 : rem 103 

1120 DATA 096,001,000,065,178,194,040,052 
,051,041 s rem 89 

1130 DATA 170,194,040,052,052,041,172,050 
,053,054 :rem 88 

1140 DATA 058,151,065,170,050,044,048,058 
,1 51,065 : rem 107 

1150 DATA 170,051,044,048,058,065,178,048 
,058,143 i rem 120 
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Programma 
evidenziatore di RcM 



;rem 

0 

1 REM* * 

à * 



srem 

189 

2 REM** 

* a 



srem 

190 

3 REM** EVIDENZIATORE DI REM 

** 



srem 

9 

4 REM** 

** 



srem 

192 

5 REM** 

** 



: rem 

193 

6 REM* * A. BORRA - 1994 

* * 



: rem 

170 

7 REM** 

a a 



: retri 

195 

8 REM** 

a* 



Srem 

196 

9 REM************************** 

* * + + 



: rem 

9 

100 PRINT T AB (255) TÀB(182) 11 ATTENDERE 

'* T 

AB (25 5) 

■ rem 

73 

109 REM* * CALCOLA FINE MEMORIA 




: rem 

65 

110 FM = PEEK (55) +256* PEEK (56) 

: rem 

21 

120 A - INT ( (FM-77}/256) i B » 

(FM-77) -A 

*256 

srem 

5 

129 REM* * MODIFICA INIZIO VARIABILI ** 



srem 

201 

130 POKE 51 , B : POKK 52, A 

srem 

212 

139 REM* * MODIFICA FINE MEMORIA 

a a 



:r em 

145 

140 POKE 55, B ; POKE 56, A 

srem 

221 

150 NF = FM-77 

:rem 

149 


159 

REM** 

CARICA ISTRUZIONI L ♦ M . 

in : 

ZONA 


PROTETTA ** 

srem 

37 

160 

FOR I 

= 0 TO 76 

siem 

68 

170 

READ ^ 

F 

; rem 

* ;1 0 

180 

POKE NF+I,V 

srem 

82 

190 

NEXT 


srem 

2T7 

200 

PRINT 

TAB (202) "PER ESEGUIRE 

j n N ■ 

PHIN 


T TAB( 2 7} "SYS" ? NF TAB{200) 

: rem 

189 

21 0 

END 


: rem 

106 

999 

REM** 

ISTRUZIONI IN L.M. ** 

: rem 

227 

1000 

DATA 

165, 043, 133,251 ,165 

: rem 

137 

101 0 

DATA 

044,133,252,160,001 

: rem 

124 

1020 

DATA 

177,251 ,201 ,000,208 

: rem 

129 

1030 

DATA 

001,096,160,004,177 

: rem 

136 

1040 

DATA 

251 , 201 ,143,240,009 

: rem 

129 

1050 

DATA 

201,000,240,032,200 

: rem 

1 T 2 

1060 

DATA 

1 69,000, 240, 241 ,200 

S rem 

128 

1070 

DATA 

1 77,251 , 20! ,000,240 

srem 

130 

1080 

DATA 

020,169 

:retn 

65 

1086 

REM** 

CONTIENE IL CODICE PER IL 

GAME 


I AMENTO DELLE SCRITTE ** 

srem 

12 

1 087 

REM** 

Q05=B IANCG 

02fl=R05S 


O 

* * 

: rem 

71 

1088 

REM** 

03Q=VERDE 

031 -BLU 



a * 

i rem 

97 


1089 REM** 018-REVERSE ON 




a a 

; r em 

237 

1090 

DATA 

018 

; rem 

125 

1100 

DATA 

1 45,251 ,200,177,251 

s rem 

135 

mo 

DATA 

201 ,000, 240,004,169 

: rem 

122 

1120 

DATA 

000,240,245,136,169 

: rem 

137 

1129 

REM* * 

CONTIENE IL CODICE 

PER 'TORNARE 


ALLA SCRITTURA NORMALE ** :rem 

21 3 

1130 

DATA 

031 

; rem 

115 

1 1 40 

DATA 

1 45,251 ,160,000,177 

srem 

136 

1150 

DATA 

251 , 170,200, 177, 251 

; rem 

138 

1 1 60 

DATA 

134,251 ,133,252,169 

! rem 

146 

1 1 70 

DATA 

000,240,1 87 

: rem 

1 
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Il Joystick 

Come acquisire i segna- 
li provenienti dai joy- 
stick e simularne il fun- 
zionamento sulla ta- 
stiera: seconda parte. 

Come limolile II 
fumlommeiito di on 
joystick sulla tastiera del 
C64- 

* Terremmo innanzi iulto precisare al 
V cune delle caratteristiche del pro- 
gramma (Programma 2) che accompa- 
gna questa sezione. 

Non abbiamo ritenuto conveniente spin- 
gere la simmetria tra questo program- 
ma ed 11 precedente fino a simulare 
“due” joystick sulla tastiera. Tutto ciò 
che viene realizzato tramite i tasti indi’ 
cati nel programma può essere replica- 
to senza problemi in qualsiasi altra par 
te della tastiera tramite una diversa se- 
rie di tasti. 

Abbiamo preferito invece dimostrare le 
diversità esistenti tra due possibili modi 
di acquisizione del segnale da tastiera, 
vale a dire tramite le istruzioni PEEK 
(!97i e GET X$. Ulteriori varianti sa 
rebbero possibili per quanto riguarda ii 
meccanismo dei test nel secondo caso 
(direttamente sulla variabile a I fan u meri’ 
ca contenente il carattere acquisito, in- 
vece che sulla conversione in codice 
ASCII del carattere stesso), e per la 
realizzazione di un pulsante di fuoco in- 
dipendente dai due meccanismi di ac- 
quisizione suddetti. Entrambe queste 
opzioni, per ragioni di semplicità, non 
sono state inserite nel programma, ma 
verranno brevemente affrontate in que 
sta stessa sezione. 

Il primo problema che ci si trova ad 
affrontare, se si desidera replicare tra- 
mite ì tasti il funzionamento di un joy- 
stick, è rappresentato dal fatto che, 
mentre gli spostamenti di quest'ultimo 
sono controllabili tramite solo quattro 
mie min te fruitori, una serie di quattro 
tasti non permette di comprendere gli 
spostamenti lungo le direzioni interme- 
die. 

Dato infatti che Ita equazione da tastie- 
ra, sia che avvenga sotto forma ài istru 
rione PEEK che di GET, scandisce ì 'in- 
tera tastiera, non è possibile comporre 
i segnali provenienti da due tasti ditte 




renti premuti contemporaneamente, 
dal momento che entrambi t suddetti 
meccanismi di acquisizione segnalano la 
pressione solo del primo dei due (ed una 
lieve differenza tra F attivazione dei due 
tasti esiste sempre), 
li problema è, comunque, meno grave 
di quel che sembri. E solo necessario 
introdurre una certa ridondanza rispet 
to al segnale dei joystick, definendo il 
doppio di microinterruttori, cioè otto ta- 
sti invece che quattro. 

Con i due metodi suddetti è necessario 
escludere solo i tasti RUN/STOP (per 
ovvie ragioni), CTRL, RESTQRE, 
SHIFT, SHIFT LOCK e COMMODO 


RE (in quanto Inerti, se premuti da soli). 
Ciò lascia ampie possibilità di scelta (no 
tate come siano compresi \ tasti funzio- 
ne che, in alcuni casi, si rivelano partico 
larmente comodi), anche per quanto ri- 
guarda il posizionamento del nostro joy- 
stick “virtuale" (o, addirittura, dì più 
d’uno) sulla tastiera. 

Dovendo disporre di tutte le quattro di- 
rezioni cardinali e delle quattro interme- 
die, è possibile, con un po' di fantasia, 
arrivare a definire fino a ire joystick 
sulla tastiera, benché II loro uso risulte- 
rebbe sicuramente ben poco agevole, 
ad esempio con la seguente definizione 
del tasti: 
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Joystick 1 Joystick 2 Joystick 3 
123 TYU 0 + - 

QWE GHJ 0P@ 

A S D B N M L : ; 

Le varie direzioni sono stabilite dalla 
posizione relativa tra i tasti periferici ed 
il tasto centrale di ciascun joystick (ri* 
spettivamente W, H e P). 

Ciò significa che, ad esempio, premen 
do + S* l'utente dei primo joystick virtua 
le provocherebbe uno spostamento ver- 
so il basso; premendo il tasto 'V I) se 
condo giocatore si sposterebbe verso 
l'alto e a sinistra e premendo© Il 
terzo giocatore si muove rebbe verso de- 
stra. 

Per quanto riguarda i pulsanti di fuoco, 
potrebbe essere una buona idea utilizza 
re i tasti centrali di ciascun gruppo (altri- 
menti inutilizzati). 

Il caso suddetto è, naturalmente, un po' 
al limite; riteniamo, comunque che in 
caso di necessità V implementazione di 
un paio di joystick “virtuali", “strategi 
camente" disposti, non provochi parti 
cola ri problemi. 

Una caratteristica da tenere ben pre- 
sente, comunque, è rappresentata dal 
fatto che, siccome L'esame delle varie 
direzioni deve essere esaustivo, la deco- 
difica di piu “joystick” provoca un ral- 
lentamento del programma. 

Altri aspetti caratteristici vengono de- 
terminati dal diverso sistema di acquisi- 
zione del segnale premuto. 

Tramite f istruzione PEEK (197) si legge 
una locazione di pagina zero del calcola- 
tore, contenente un valore numerico 
compreso tra 0 e 255. Dal momento 
che non esistono tavole dei valori corri- 
spondenti ai tasti letti in questo modo, 
abbiamo ritenuto opportuno inserire nel 
programma una breve routine, che vi 
permetterà di stabilire il valore associa 
to a ciascun tasto, ad esempio se desi 
derate ridefìnire nel programma i tasti 
associati alle varie direzioni. 

Per attivare questo sottoprogramma è 
sufficiente, dopo aver copiato il Pro 
gramma 2, battere in formato diretto 
RUN950. Nell'angolo superiore dello 
schermo comparirà il valore numerico 
64, che corrisponde al caso in cui la 
tastiera sia inattiva, cioè non sia premu- 
to alcun tasto in quel momento; è quindi 
possibile compiere semplici test in que- 
sto modo per stabilire se 11 nostro “joy- 
stick p viene o no utilizzato. 

Tenendo premuto uno del tasti, con 
esclusione di quelli suddetti, si vedrà 
comparire la cifra corrispondente, ac 
quisìta tramite l'Istruzione PÉEK(197). 
Attenzione al fatto che Facq udizione 
con questo sistema, contrariamente al- 
l'Istruzione GET, come vedremo, non 
dispone di un'area tampone in cui me 
morizzare una certa quantità dei tasti 
premuti in successione; le cifre che com- 
pariranno sullo schermo, pertanto, cor- 
risponderanno ai tasti “tenuti” premuti; 
non appena essi verranno 1 rilasciati ri- 
comparirà il valore numerico corrispon- 
dente a “tastiera inerte". 


Per avere una rapida dimostrazione 
battete 

FORI = ITOIOOOO:? “[CERI* PEEK 
(197): NEXT 

Gli stessi valori si possono ottenere leg- 
gendo la locazione 203 di pagina zero 
in formato analogo. 

L'acquisizione tramite 
istruzione GET 

Il meccanismo di acquisizione che utiliz- 
za l'istruzione GET è, invece, sostanzial- 
mente differente. Come detto, esso è, 
innanzi tutto, fornito di buffer; è pertan 
lo possibile acquisire una serie di dieci 
tasti in sequenza e riprodurne gli effetti 
in uscita. Ciò significa che l'area tampo- 
ne ut illizzala dalla tastiera è organizzata 
come una coda (del tipo che viene gene- 
ralmente chiamato FIFO, cioè “First In, 
First Ouf ; primo in entrata, primo in 
uscita) avente solo dieci “posti" disponi- 
bili; Tacquisizione avviene sempre da! 
primo carattere della “coda”, ed ogni 
acquisizione fa scorrere in avanti dì una 
posizione tutti i caratteri seguenti. 


Questa caratteristica non è sempre de- 
siderabile ed è quindi talvolta necessa- 
rio 'preoccuparsi che il buffer della ta- 
stiera sia vuoto prima di acquisire cia- 
scun segnale. Un modo per farlo consi- 
ste semplicemente nel leggere dieci ca- 
ratteri tramite un ciclo 

FORI = 1TG10:GETÀ$: NEXT 

Un modo più elegante di ottenere lo 
stesso risultato consiste ne II 'al te rare il 
contenuto della locazione di pagina zero 
(198), indicante il numero di caratteri 
contenuto nel buffer di tastiera. Una 
istruzione 

POKE 198,0 

posta dopo ciascuna acquisizione per- 
metterà di ingannare il calcolatore, fa- 
cendogli trascurare i caratteri già inseri- 
ti nell'area tampone. 

Una delle cose cui si deve fare attenzio- 
ne nella gestione di un simile sistema di 
acquisizione dei segnali è il caso in cui 
non sia stato premuto alcun tasto. Un 


simile caso può essere rilevato con una 
istruzione del tipo 

GET X$:IFX$= " "THEN . , , 

È importante, però, stabilire che cosa il 
programma deve fare in questo caso: 
se non vi sono problemi di tempo o si 
suppone che gli ingressi siano sufficien- 
temente frequenti, sarà opportuno rici- 
clare sulla stessa istruzione GET in atte- 
sa del primo segnale in ingresso; se. 
Invece, i segnali giungono con frequen- 
za rela riva mente bassa, e non è oppor- 
tuno che il programma rimanga blocca- 
to in attesa del primo tasto premuto, 
sarà opportuno diramare verso altre 
parti o richiamare particolari sottopro 
grammi (ad esempio per aggiornare un 
cronometro o la posizione del giocatori 
sullo schermo nel caso di un videoga- 
me), per poi ritornare a questa sezione 
di acquisizione del dati. 

Per quanto riguarda la decodifica del 
segnale sono possibili due alternative: 
una consiste nel compiere i test diretta- 
mente sul carattere alfanumerico acqui- 
sito tramite La variabile X$, ad esempio 

10 GETX$=“"THEN10 
20 IFX$- U W”THEN... : REM NORD 

Questo sistema, però, non permette di 
utilizzare quei tasti, come RETURN, 
che non hanno un carattere corrispon- 
dente. Per ovviare a questo inconve- 
niente è preferibile utilizzare la con ver 
sione del carattere alfanumerico nel va- 
lore numerico in codice ASCII corri- 
spondente, ottenibile tramite un'istru- 
zione 

X-ASC(XS) 

di cui l'Appendice F del “Manuale d’uso 
del C64 H riporta una tavola completa. 
La decodifica del tasto 'W l del breve 
programma precedente avrebbe quindi 
la forma 

10 G£TX$: IFX»“"THEN 1 0 
20X-ASC(X$):1FX-87THEN... : REM 
NORD 

Prima dì commentare le varie opzioni 
del Programma 2 qualche breve cenno 
su dì un'altra locazione di pagina zero 
che può essere utilizzata per acquisire 
segnali dalla tastiera. 

Le sue caratteristiche la rendono parti 
col armento sfruttabile per funzioni di 
pulsante di fuoco, in particolare quando 
si desidera che quest'ultimo Sia indipen- 
dente, ad esemplo per ragioni di rapidi- 
tà di acquisizione, dalla decodifica dei 
segnali di spostamento del joystick “vfr 
tuale". 

La locazione in tjuestione può essere 
letta tramite una istruzione 

PEEK (653} 

in maniera non differente da quanto fat- 
to per la lettura della tastiera tramite 
le locazioni 197 o 203. Il contenuto del- 
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la locazione suddetta è uguale a zero, 
Se nessuno dei tasti da essa controllati 
viene premuto nel momento della lettu- 
ra. 1 tasti in questione rappresentano 
una parte di quelli esclusi dalla lettura 
per le due locazioni precedenti, vale a 
dire t tasti SHIFT (e SHJFT LOCKh 
COMMODORE e CTRL. Il contenuto 
della locazione 653, nel caso ìn cui uno 
dei tasti suddetti venga premuto, resti 
tuisce, rispettivamente, i valori numeri- 
ci 1, 2 e 4, 

Volendo utilizzare i tre tasti suddetti co- 
me pulsante di fuoco è possibile inserire 
nei punti opportuni di qualsiasi pro- 
gramma una istruzione del tipo 

IFPEEK{653) < > OTHEN . . REM 
PULSANTE DI FUOCO PREMUTO 
oppure 

IFPEEK(Ó53)=0THEN . .: REM PUL- 
SANTE DI FUOCO INATTIVO 

Programma 2; 
funzionamento e commenti 
al listato 

Il Programma 2 presenta alcune lievi, 
ma sostanziali, differenze rispetto ai 
programma precedente. Innanzi tutto il 
menu viene ridotto da tre a due voci, 
dal momento che, come si è detto, ab 
biamo preferito rinunciare alFimpJe- 
mentazione di due joystick “virtuali” 
sulla tastiera. 

Dopo aver mandato in esecuzione il 
programma, ed aver atteso che esso 
trasferisca il contenuto delle frasi DA- 
TA in memoria per definire la forma 
degli aprite, comparirà sullo schermo un 
menu composto da due sole voci, che 
permetterà di scegliere tra V acquisizio- 
ne del segnale tramite Istruzione PEEK 
( 197)0 GET X$. 

Date le dimensioni del menu, sarebbe 
stato superfluo, a rigor di logica, defini 
re sia tasti per il passaggio da un opzio- 
ne alla precedente che per spostamenti 
In senso opposto. Abbiamo comunque 
preterito, anche a scapito di una certa 
ridondanza, mantenere le stesse carat- 
teristiche del Programma L Una delle 
ragioni per questa scelta è stata rappre- 
sentata dal fatto che il controllo di un 
indice “verticale” delle voci di un menu 
costituisce un'ottima possibilità di esem 
plificare l'impiego dei tasti funzione, 
che fanno fn questo caso le veci dei 
microinterruttori “NORD" e “SUD" del 
joystick. 

Per quanto riguarda racquisizione di 
questi segnali, date le caratteristiche 
che contraddistinguono i tasti funzione, 
abbiamo preferito utilizzare l'istruzione 
PEEK (197). Il tasto dì funzione ’fl* rive- 
ste le funzioni della posizione “NORD” 


del joystick, mentre il tasto T7 1 assume 
quelle della posizione “SUD". Una volta 
attivata l'opzione desiderata è possibile 
passare al quadro principale del pro- 
gramma di sparo premendo uno dei due 
pulsanti di fuoco “virtuali" definiti sulla 
tastiera. Abbiamo preferito dare un du- 
plice esempio delle possibilità di impie- 
go di questa tecnica, definendo come 
tali sia la barra spaziatrice (secondo noi 
la più comoda, date le dimensioni e la 
sua posizione) che il tasto RETURN; ma 
è ovviamente possibile utilizzare qual* 
siasi altro tasto letto con una delle due 
tecniche illustrate. 

Una volta attivato il quadro della “bus- 
sola” tutto si svolge, apparentemente, 
in maniera non molto differente dal Pro 
gramma 1 . Le uniche differenze riguar- 
dano, ovviamente, il nostro joystick vir- 
tuale. definito dai tasti 

Nord -ovest Nord Nord -est 

Q W E 

Ovest A D Est 

2 X C 

Sud-ovest Sud Sud-est 

e dai due pulsanti di fuoco (barra spa- 
ziatrice e RETURN). 

Le quattro caselle nella parte superiore 
dello schermo contengono, da sinistra a 
destra, il valore della variabile P (pari 
al valore numerico letto tramite l'istru- 
zione PEEKU97) od alla codifica ASCII 
del carattere acquisito tramite lìstruzio- 
ne GET X$), la lettera corrispondente 
a! tasto premuto, il tipo di istruzione 
utilizzata per l'acquisizione del segnale, 
oltre alla solita indicazione circa la dire- 
zione selezionata. 

Tutte le altre funzioni del programma 
rimangono invariate, compreso il con- 
trollo del colore dello sprite tramite ì 
“pulsanti di fuoco" e la necessità di pre- 
mere RUN/STOP per interrompere il 
programma. 

Di seguito vengono commentate le 
istruzioni che differenziano in maniera 
fondamentale il Programma 2 dal pre- 
cedente. 

Rìg* Commento 

60-70 Vengono inizìalizzate le va- 

riabili che caratterizzano il 
menu ridotto. 

110 Viene acquisito, mediante 

l'istruzione PEEK (197), un 
eventuale segnale prove- 
niente dalla tastiera. Nel ca- 
so in cui il contenuto della 
Locazione suddetta sìa 
uguale a 1 o a 60 (vale a 
dire i valori numerici corri- 
spondenti, rispettivamente, 
alla pressione del tasto RE- 
TURN o della barra spazia- 
trice) si considera premuto 


il pulsante di fuoco “virtua- 
le” e si passa alla sezione 
principale del programma. 

120 Se il valore numerico letto 

è uguale a 4, corrisponden 
te alla pressione del tasto 
funzione 'fi', si passa dalla 
opzione attualmente attiva 
a quella che la precede, 
considerando il menu cicli- 
co, con le stesse caratteri- 
stiche già illustrate per il 
programma precedente. 

130 Analoga alla riga preceden- 

te. In questo caso il test vie- 
ne compiuto sul tasto fun- 
zione zT {PEEK(197)*3, 
se premuto) per stabilire se 
si desidera passare da una 
voce del menu alla successi- 
va. 

230 Se viene attivata la seconda 

opzione del menu, il pro- 
gramma si dirama verso la 
sezione opportuna del pro- 
gramma. 

250 Acquisizione de! segnale 

tramite istruzione PEEK 
(197), Viene quindi azzera 
ta una variabile ’flag' FL, 
che fa da segnale circa la 
significatività del tasto pre- 
muto. Dopo aver richiama- 
to un opportuno sottopro- 
gramma di decodifica, infat- 
ti, viene eseguito un test sul 
valore della variabile FL e, 
nel caso in coi essa valga 1 
(nel caso cioè in cui sìa stato 
premuto un tasto che non 
fa parte del joystick “ virtua- 
le” da noi definito o nessun 
tasto sia stato premuto), sì 
richiama il sottoprogramma 
di controllo del colore dello 
sprite, quindi si ricicla per 
acquisire un nuovo segna- 
le. 

320-350 Gestione del colore dello 
sprite. In particolare; 

330 Viene eseguito un test per 

Stabilire se sia stato premu- 
to uno dei due pulsanti di 
fuoco definiti sulla tastiera; 
In caso negativo sì esce dal 
sottoprogramma. 

360-370 Controllo del colore dello 
sprite nel caso in cui il tasto 
premuto venga acquisito 
tramite istruzione GET X$. 
In particolare; 

360 Viene acquisito il tasto pre- 
muto. Come potete notare, 
la lettura avviene senza 
preventivo svuotamento 
de! buffer, per cui è possibi- 
le premere fino a dieci tasti 
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senza che la memoria ram- 
pone “dimentichi" un se- 
gnale della serie. Nel caso 
in cui non sia stato acquisito 
alcun segnale, si ricicla im- 
mediatamente per attende- 
re la pressione di un tasto, 
dal momento che non ci so- 
no compiti particolari da 
svolgere 

N.B. - Questa sezione di 
acquisizione è comune alla 
parte del programma che si 
occupa del joystick ‘Virtua- 
le". 

370 H carattere alfanumerico 

acquisito con la istruzione 
precedente viene converti- 
to nel suo equivalente 
ASCII; quindi viene com- 
piuto un test per stabilire se 
sia stato premuto il tasto 
KETURN (P- 13) o la barra 
spaziatrice (P“32), nel qual 
caso si richiama il sottopro 
gramma di gestione del co- 
lore dello sprite. 

380 Si azzera la variabile di 

’flag* e si richiama un op- 
portuno sottoprogramma, 
analogo a quello visto per 
la decodifica del segnale del 
joystick “virtuale" acquisito 
tramite PEEK (197). 


770-850 Sottoprogramma di decodi- 
fica del segnale acquisito 
tramite istruzione PEEK 
(197). 1 test vengono ese- 
guiti singolarmente, non es- 
sendo possibile convertire i 
valori numerici acquisiti 
(non consecutivi e spaziami 
su di un campo di valori 
piuttosto vario) in modo da 
poterli utilizzare come indici 
di eventuali matrici in ma- 
niera analoga a quanto fat- 
to per il Programma 1 con 
la variabile JS, Per ognuno 
dei valori rilevati il sottopro- 
gramma fornisce Li valore 
SP deliutdice degli sprite t il 
valore J5 dell'indice delia 
matrice contenente le scrit- 
te per la “bussola" , la va 
riabile alfanumerica X$, 
contenente il carattere cor- 
rispondente al tasto premu- 
to. 

860 940 Analoghe alle righe prece 
denti. In questo caso il sol 
toprogramma opera la de- 
codifica partendo dai valori 
ASCII corrispondenti ai ta- 
sti premuti ed acquisiti tra- 
mite l’istruzione GET X$. 
Anche in questo caso, ben- 
ché l'ampiezza dell* interval- 



lo dei valori assunti sia più 
ristretta, la loro conversio- 
ne in indici di matrici rende 
necessario questo meno 
elegante e più costoso, in 
termini di tempo, sottopro- 
gramma di decodifica 
950 Questa riga può essere 

omessa, dal momento che 
non viene mai richiamata 
nel corso del programma. 
Può però risultare comoda, 
se si desidera ridefinire al- 
cuni dei tasti utilizzati per le 
varie funzioni descritte, per 
conoscerne 11 valore nume- 
rico corrispondente tramite 
la funzione PEEK (197). 1 
valori numerici dei codici 
ASCII corrispondenti ai vari 
tasti possono invece essere 
reperiti sul “Manuale d'uso 
del C64", Appendice F. 


10 KS = "lPQMEH 25 GIU 1 )" :D1MWS (25) ,SP OG, 
2) ,S2$ (10) :F0Rl*lT025 trem 193 

20 W5 1 1) =LEPTS (R$,l) : NEXT: FORI = 1 TG 1 0 : F0RJ 
=0TQ2:READSP(I,J) : NEXT: READSPS ( 1 ) ; NEXT 

:rero 243 

10 POKE53280, 1 5:P0KB532B1 , 1 5; FRI NT" {CLR} " 

; V=53248 * rem 149 

40 PRINTCHR6 fi 41 UFPEEK ( 1 6004 ) =4THEN60 

:rem 232 

50 FORI “0TO7 : FORJ=0TO63 : READ A: POKE1 5744+ b 
4 * I +J , A : NEXTJ , £ = re ^ 23T 

60 PR1 NT " {CLR ] " TAB ( 1 6 ) " ( RED } M E 13 U' m llAS = 
2 E) K 1197) " 36 

70 M(1 rii -64:M(2,T)«32:M$(2)*"GET X? 

{ 4 SPAZI}" 78 

80 PRlNTriS (3) TAB (4) " {BLU} LETTURA TRAMITE 
ISTRUZIONE:” :rem 192 

9U FORI ^ 1 T02 : PRlNTiftf^ 1 5+1*2 )TAB( 3) ” {RED} 

{ RVS } "RIGHTS (STR? (I) , 1) 11 {GFFHBLK} - " 
M$(I):NEXT item 95 

1 00 FRI NTWS ( 5+NS* 2 ) TAB (7 ) " {RED } "MS (NS) : PR 
I NTWS ( 5+ VS * 2) TAB ( 7 ) ” ( BLK 1 11 MS ( VS ) 

srem 255 

1 1 0 P 1 *PEEK ( 1 97) S IFPl = ÌORPl =6GTHENl 50 

; rem 169 

\ 20 IFP1 si 4THENVS“NS : NS-NS- 1 ; IFNS-0THENNS= 
2 srem 247 

1 30 IFPl =3THENVS=NS:NS=NS+1 ! I FNS* 3THENNS= 
^ ;rem 247 

140 GOTOlQO :rein 9b 

1 50 PRINT" (CLR) "TAB (2) “ (BLU } P" TAB ( 8 } " 

{GRN 1X8" TAB (14) 11 { B LÈt j LETTURA I N M TAB ( 2 
8 ) “ { RED f 0 1 RE Z IONE { BL|C ) n :rem 137 

160 PRINT" [<A>){ 3 11 [<S>J ( 2 SPAZI H<A>J 
{ 2 *K<S>){ 2 SPA2lH<A>H 10 *) 
[<S>n 2 SPAZI) 1<A> li 10 iH<S>T" 

: rem 160 


170 P$*RIGHT5("l 3 SPAZI)" +STR5 (M (NS, 1 ) ) » 
3 ) srem 20 

180 PRINT"- {BLU J"F5" (BLK)- ( 2 SPAZl}- 
(GRN) 0 { BLK 1 - ( 2 SPAZI J -"H5 INS)"- 
{ 2 SPAZI } z { 10 SPAZI }- w : rem 62 

190 PRINT" [<Z> Il 3 M t < X > 1 T 2 SPAZI H<Z>] 
{ 2 *)[<X>H 2 SPAZI )[<Z>H 10 M 



[<X>T{ 2 SPAZI H<Z>H 10 

Ì) [<X>J " : 

FOR 


1=1 TOl 0 

: rem 

175 

200 

1 FSP t ! 1 0 ) = OTH EN 220 

srem 

234 

210 

PRINTW6 (SP(I,1) ) TAB (SP (Ir 

2) ) SPS ( I ) 
: rem 

170 

220 

NEXT 

:rem 

211 

230 

IFNS-2THEN360 

srem 

252 

2 50 

P=PEEK (197) :FL te 0 : GOSUB77Q 

: IFFL-1THENG 


OSUB3 2 0 : GOTO 250 

; rem 

227 

260 

POKEV+1 ,121 :POKEV+0, 156 

srem 

27 


27 D POKEV+23, 1 :P0KEV+29,1 :POKEV+39,C0 

srem 209 

280 POKE2 040,24 5+SP : FOKEV+2 = RIGHTS ( 
STR$ (P) ,3) tX?=RlGHT$ (" { 2 SPAZI )"+X$, 
2) : rem 56 

290 PRINTW$(3)TAB(1) " { BLU } " P$TAB (8) " (GRN } 
"XSTAB ( 28 ) m (RED ) "SP$ ( JS ) : rem 60 

300 I FOS< > 0 ANDOS < > JSTH ENFR I NTW$ (SP (05,1 ) ) 
TAB (SP ( OS , 2 ) ) ”{BLK}"SP$ (OS) scem 31 

310 PRINTWS (SP(JS,1 ) ITABtSP £JS,2) ) "{RED}" 
SPS (JS) :O3=JS:G0TO23Q srem 197 

320 REM ** COLORE DELLO APRITE ** 

srem 44 

330 I FP< > l ANDp< > 6 QTHEN RETURN : rem 50 

340 CO-CO+I : IFCO=l 5TKENCO=0 srem 128 

350 POKEV+3 9, CO: FOR I - 1 TG 500 : NEXT : RETU RN 

: rem 21 

360 GETX$ : I FX5 m " "TMEN 360 s rem 131 

370 P=ASC(X$) :IFP»13ORP-32THENGGSUB340:GO 
TO 360 : rem 106 
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3 SO FL= 0 i GOSUBduO : I FFL S 1 THENGOTO360 




: rem 

188 

390 

GOTG260 

: rem 

109 

400 

REM ** DATI BUSSOLA ** 

irem 

91 

410 

DATAI, 7,1 5 , ”{ J SPAZI J NORD l 

j SPAZI) 


",2,17,15,"! 3 SPAZI ) SUO t 4 SPAZI } " , 0 
,0,0, "ILLEGALI;" ;rem 155 

420 DATA 3 ,12,5,"{ 2 SPAZI }OVEST 

t 3 SPAZI )",b, 7,5, "NORD-OVEST", 5, 17, 5 
," SUD-OVEST" :rem 75 

4 30 DATÀO , 070 , "ILLEGALE" scem 200 

440 DATA4 , 12,25,"{ 3 SPAZI }EST( 4 SPAZI} 
",7,7,25," NORD-EST ",«,17,25," SUD- 
EST! 2 SPAZI}" :rem 249 

450 REM ** DATA SPRITE NORD ** :rem 73 
4 60 DATA!), 8,0,0,28,0, 0,62,0,0, 1 27,0,0,2 55 
, ! 28 , 1 ,2 55,1 92,3,2 55,224,7,255,240 

: rem 1 08 

4 70 DATAO, 127,0, 0,1 27,0, Q, 127, 0,0,127,0,0 
,127,0,0,255,128,1 ,255,192,3,247,224 

:rem 195 

4 bO DATA3, 227,224,3,1 93,2 2 4,3,1 28, 224 f 3,0 
,96,2,0,32,0 ir em 7 1 

490 REM ** DATA SPRITE SUD ** ; rem 6 

500 DATA 2 , 0, 32 , 3 , 0 , 96 , 3 , 1 28 , 224 , 3 , 1 93 , 224 
,3,227,224, 3,247,224,1 ,255,1 92 

:rem 189 

510 DATA 0,255,129,0, 12 7,0,0,127, 0,0, 127,0 
,0, 127,0,0,127,0, 7,255,240, 3,255,224 

:rem 189 

520 DATAI ,255,1 92,0, 255,128,0, 127,0,0,62, 
0,0,28,0,0,8,0,0 ;rem 237 

530 REM ** DATA SPRITE OVEST ** iten 166 

540 DATA 0,0, 0,0, 0,0, 0,0,0, 1 ,0,0,3,1,248,7 
,3,240, 15,7,224,31,255,192,63,255,128 

: rem 223 

550 DATAI 27,2 55,0,255,2 54,0,127,255,0,63, 

255.1 28.31 .255. 192. 1 5.7.224.7.3.240 

:rem 200 

560 DATA 3 , 1 ,248,1,0,0,0,0,0,0,0,0,0,0,0,0 

: rem 188 

570 REM ** DATA SPRITE EST ** srens 5 

580 DATAO ,0,0,0, 0,0, 0,0, 0,0, 0, 1 26,31 , 1 28, 
192,15,192,224,7,224,240,3,255,248 

: rem 93 

590 DATAI ,255,2 52,0,2 55,254,0,1 27,2 55,0,2 

55.254.1.255.252.3.255.248.7.224.240 

: rem 25Q 

600 DATAI 5,192,2 24, 31 , 1 28 , 1 92 , 0 , 0 , 1 28 , 0, 0 


,0,0, 0, 0,0,0, 0,0 

:rem 

21 6 

610 REM ** DATA SPRITE 

SUD-OVEST ** 



irem 

1 90 


620 DATAO, 0, 0,0, 4, 0, 0, 12,0,0,28,0,0,60,0, 
0,1 24, 0,0, 252,0, 0,255,240,0, 255,224 

:rem 87 

630 DATAO, 2 55, 192,1 ,255,128,1 31 ,255, 0, 1 99 
,254,0,239,224,0, 255,192,0 :rem 12 

640 DATA25S,! 28,0,255,0, 0,254,0,0,255,0,0 
,255,1 28, U, 255,192,0, 0 :rem 37 

650 REM ** DATA SPRITE NORD-OVEST ** 

:rem 9 

660 DATAO, 0, 0,255,1 92,0,255, 128,0, 255,0,0 
,254,0,0, 255,0,0,265,128,0,255,1 92,0 

: tetti 203 


670 DATA239, 224,0, 1 99,254,0, 131 ,255,0,1 ,2 
55,128,0, 255,192,0,255,224,0,255,240 

:rem 242 

680 DATAO, 2 52, 0,0, 124,0, 0,60,0,0,28,0,0,1 


2, 0, 0,4,0, 0 

:rem 

215 

690 REM ** DATA SPRITE NORD-EST 

* * 



irem 

104 


700 DATAO, 0,0, 0,1 5, 254, 0,7, 254, 0,3, 254,0, 
1 ,254,0,3,254,0,7,254,0, 15,254 

i rem 1 47 


710 DATAO, 31 ,254,1,255,238,3,255,198,7,25 
5,1 30, 1 5,255,0,31 ,254,0,0,62,0 

tieni 188 

720 DATAO, 62,0,0,62,0,0,60,0,0,56,0,0,48, 
0,0,32,0,0 irem 173 

730 REM ** DATA SPRITE SUD-EST ** 

;rem 28 

740 DATAO, 32,0,0,48,0,0,56,0,0,60,0,0,62, 
0 ,o*H 

EWDATA?, 2 55, 130, 3, 2 55, 198, 1,255, 238, 
0,31 ,254,0,1 5,254,0,7,254,0,3,254 

srem 218 

760 DATAO, 1 ,254,0,3,254,0,7,254,0,15,254, 
0,0, 0,0 treni 56 

770 IFF- 9THENSP* 1 : JS»1 ; X 8 ■" W" : RETURN 

:rem 160 

780 IFP-23THENSP = 2 : JS** 2 : : RETURN 

;rem 208 

790 .1FP«10THENSP»3:JS-4;X$«"A M : RETURN 

:rem 185 

800 IFP" 1 BTHENSF = 4 : JS* 8 : RETURN 

:rem 193 

810 IPP-l2THENSP=5:JS-6iX5» n Z":RETURN 

:rem 209 

820 I FP = 62THBNSP»6 ; JS* 5 : i RETURN 

trotti 206 

830 IFP*1 4THENSP** 7 : JS m 9 * X$ w,,, E ft : RETURN 

trem 197 

B 4 0 IFF* 2 OTHENSP * 8 : JS * 1 0 ; X$ * " C " i RETURN 

: rem 234 

850 FL* 1 : RETURN : rem 183 

860 IFP=87TH£NSP* 1 :JS*I : X$ = "W" : RETURN 

;rem 214 

8 70 1FP= 88THENSP- 2 : JS*2:X?-"X ,i ; RETURN 

irem 219 

tì aO IFP“65THENSP*3 : JS“ 4 : X$* '* A" : RETURN 

” :rem 195 

890 IFP=6tìTHENSP=4: JS * tì : XS«"D" ; RETURN 

irem 207 

900 IFP=9QTHENSP= 5 :JS-6:XS-"Z M : RETURN 

; rem 215 

910 IFP“6 1 THENSP»6 : JS* 5: W Q W : RETURN 

;rem 207 

920 I FF*69THENSP*7 : JS*9 : X6- H E H ; RETURN 

“ :rem 207 

930 I FP- 67THEN Sp= 8 i JS * 1 0 : X? -*C h : RETU RN 

irem 245 

940 FL*1 : RETURN :rem 1 B3 

950 FRI NT** [CLR 1 m ; FORI * 1 TOl 000 : PRINT" 

{ HOME Ì 11 RI GHT? ( * { 4 SPAZI }" +STE6 ( PEEK ( 
1 97) 1 ,3J : MEXT tram 27 
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OK-List 
per la perfetta 
battitura 
dei listati 


I nserite in memoria l'OK-LIST prima di 
accingerai a battere i listati pubblicati: 
avrete a disposizione un formidabile mez- 
zo per essere sicuri dì aver inserito nel 
computer ogni carattere in modo assolu- 
tamente corretto. 

Tutti i nostri listati sono caratterizzati da 
un numero aggiunto ad ogni linea di prò 
gramma, od esempio: rem 123, NON 
COPIATE QUESTA PARTE DELLA LI 
NBA! Serve unicamente per vostra infor- 
mazione. L’istruzione REM ha l’unico sco- 
po di renderla inoffensiva se per errore 
doveste batterla. 

Se, prima di iniziare il lavoro di battitura 
del listato, caricate in memoria OK-LIST 
e lo attivate con RUN, per ogni linea che 
battete verrà visualizzato un numero (det- 
to cheeksum} nell "angolo superiore sini 
stro dello schermo. 

Confrontate questo numero con quello 
pubblicato per ogni linea del listato; se 
non corrisponde, dò significa che avete 
commesso un errore nella battitura della 


linea stessa. 

Le ore buttate per cercare e correggere 
errori di battitura in programmi che non 
funzionano saranno solo un lontano ricor- 
do! 

Due ultime cose di cui tenere conto: 
OK-LIST non tiene conto degli spazi: que- 
sto per vostra convenienza, poiché questi 
generalmente sono poco importanti, 
Infine, OK-LIST è allocato nel buffer del 
registratore (locazioni 886-1018), quindi 
prima di salvare su cassetta 11 programma 
che state battendo, ricordatevi di disabi- 
tarlo premendo contemporaneamente 
RUN/STQP + RESI OR E. Potrete poi 
riattivarlo con SYS 886. 

Il sistema piO comodo per usare OK LIST 
è quello di battere normalmente il pro- 
gramma, quindi listarlo e portarsi con II 
cursore sul numero di linea piu basso che 
appare sul video: premere quindi RE- 
TURN e confrontare il numero di che- 
cksum visualizzato nell'angolo superiore 
sinistro del video con quello pubblicato 
per la data riga del programma. Il cursore 
si porterà automaticamente sulla linea 
successiva, e non dovrete fare altro che 
premere il cheeksum seguente . 

Data l'area dì memoria in cui si trova, 
OK-LIST non può essere usato per con- 
trollare un programma già salvato su cas- 
setta, mentre ciò è possibile se il pro- 
gramma è stato registrato $u disco, 


OK-LIST 
versione 
per VIC 20 
e C 64 


100 FRI NT" { CLR } ATTENDERE PREGO.,-" 

105 FORI-886TO1018 : READA :CK=CK+A: POKEI ,A: 


NEXT 

110 IF CK<>17539 TKEN FRI NT "{GIU* } ERRORE 
NELLE ISTRUZIONI DATA": END 
120 SYS88 6 : FRI NT" {CLR 1 { 2 GlU*)OK-LIST AT 


TIVATO - 11 ; NEW 
886 DATA 173,036, 
892 DATA 001,096, 
890 DATA 037,003, 
904 DATA 150,141, 
910 DATA 141,037, 
916 DATA 254,096, 
922 DATA 251,134, 
928 DATA 201,013, 
934 DATA 240,005, 
940 DATA 254,165, 
946 DATA 253,040, 
952 DATA 210,255, 
958 DATA 003,206, 
964 DATA 133,216, 
970 DATA 255,169, 
976 DATA 169,058, 
902 DATA 254,169, 
988 DATA 151,003, 
994 DATA 032,205, 
1000 DATA 032,205 
1006 DATA 210,255 
1012 DATA 251,003 
1018 DATA 003 


003,201,150,200 

141,151,003,173 

141,152,003,169 

036.003.169.003 
003,169,000,133 

032.087.241.133 
252,132,253,008 

240.017.201.032 

024.101.254.133 
251,166,252,164 

096.169.013.032 
165,214,141,251 
251,003,169,000 
169,019,032,210 
01B, 032, 210, 255 
032,210,255,166 
000,133,254,172 
192,087,208,006 

189.076.235.003 

, 221, 169,032,032 
,032,210,255,173 
,133,214,076,173 
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MLX per VIC 20 
e C64 


dì C. Brunii on 

tradì. e adatt. 

i(t dì Hi Cri.talb G rizzi 

(versione 2.0 per C64) e F. stella 


M LX è un programma che permette 
di inserire listati in linguaggio mac- 
china esenti in modo'assoluto da errori e 
senza la perdita di tempo del dover batte- 
re e controllare lunghe sequenze di istru- 
zioni DATA. 

Molti dei nostri listati di programmi in 
linguaggio macchina hanno il formato 
MLX (lì riconoscete dal fatto che sono 
esclusivamente numerici) e richiedono 
quindi che MLX sia caricato in memoria 
ed eseguito prima della battitura del lista- 
to. 

MLX vi chiederà ('indirizzo della locazio- 
ne di partenza e quello della locazione 
finale del programma da caricare. Questi 
valori sono sempre indicati neirartlcolo 
che accompagna il listato. MLX vi segna- 
la automaticamente gli errori di battitura 
MENTRE STATE DIGITANDO IL LI 
STATO e vi chiede di reinserìre la linea 
errata L'ultimo numero battuto di ogni 


linea rappresenta il checksum e viene vi- 
sualizzato in reverse. 

Sono inoltre disponibili altri comandi, quali: 
SHIFT-N nuovo indirizzo: permette di 
cambiare l'indirizzo della linea che volete 
battere ed è utile nel caso si inseriscano 
i listati in più parti. 

SHlFT-D display: lista 1 dati Inseriti tra 
due indirizzi dì inizio e fine. 

SHIFT-L load: carica un file da nastro o 
SHIFT-S save: salva su nastro o disco un 
file in formato MLX, 

Una volta battuto il listato, e salvatolo 
tramite MLX, si potrà caricare diretta- 
mente il programma con un'istruzione 
LOAD “nome del file", 1,1 per il registra 
tare, oppure LOAD “nome del file” ,8,1 
per l'unità a dischi, salvo diverse Indica- 
zioni date negli articoli corrispondenti al 
vari programmi, n programma sarà gene- 
ralmente mandato in esecuzione con una 
SYS (indirizzo di partenza). 


La versione originaria di MLX per C64 
ha subito, dalla prima pubblicazione, di- 
versi ritocchi e miglioramenti, fino alla 
versione 2.0 qui presentata. 

È stato in primo luogo modificato 11 colore 
di fondo dello schermo e del bordo, in 
modo da risultare meno stancante alla 
vista; sono state ulteriormente perfezio- 
nate le routine in linguaggio macchina di 
salvataggio e caricamento del program- 
mi; è cambiata la forma del cursore e, 
cosa più importante, è stato aggiunto un 
tastlerino numerico per gli utenti che si 
trovano più a loro agio con una diversa 
disposizione dei tasti. 

Oltre a poter usare i soliti tasti numerici, 
sono stati ridefiniti alcuni tasti alfabetici, 
in modo da generare ugualmente dei nu- 
meri, I tasti ridefiniti sono i seguenti: 

U I O 7 8 9 

H J K L diventano 0 4 5 6 

M , . 12 3 

Le persone abituate ad usare tali tastiera 
ni accresceranno senz'altro, In brevissimo 
tempo, la velocità di battitura dei pro- 
grammi in linguaggio macchina. 


MLX versione per VIC 20 

1 00 PRINT" {CLRH por)* ;CHR$ (142} ;CHR${8} ; 

:rem 181 

101 POKE788 ,194: REM DISABILITA RUM/ STOP 

:rem 144 

no PRINT" { RVS }{ 14 SPAZI} 1 ' :rem 117 

120 PRINT" {RVS } {DES}fOFF} [<*>] £{RVS} 

{ DES } [DESH 2 SPAZI } [<*>} (OFF) [<*>] 
£{RVS}EfRVS) " :rem 1 91 

130 print'Tbvs} fDES} [<G>l(DESj 

( 2 DES } {0FFj£{RVS}£[<*>] {OFF} K*>1 
{ RVS } (OFF}" :rem 122 

140 PRI NT" [RVS } ( 14 SPAZI}" :rem 120 

200 PRI NT" ( 2 GIU 1 } { PUR 1 { BLK }UN PROGRAMMA 
PER L 1 IN-TRODUZ IONE { 2 SPAZI }DI ROUT 
INE1N LINGUAGGIO MACCHINA" * treni 202 
205 PRI NT" A PROVA DI ERRORE { 5 GIU 1 }" 

trem 226 

210 PRINT" (BLK}{ 4 SU} INDIRIZZO DI PARTEN 
ZA" : INPUTS:F^I-F:C$=CHR$ (31+1 1 9*F) 

:rem 52 

220 IFS<256ORS>32767THENGOSUB3OO0:GOTO21 0 

: reni 2 

225 PRI NT : PR I NT : PR I NT : PR I NT treni 123 

230 PRI NT" {BLK} { 3 SU } IND TRI ZZO CONCLU5IV 
0" : 1 NPUTE :F=1-F:C$ =CHR$ (31+179* F) 

trem 170 

2 40 I FE< 2 5 BORE > 3 27 6 7THENGOSU B 30 0 0 : GOTO 23 0 

trem 234 

2 50 IFE<STHENPRINTC$ j *' (RVS } INDIRIZZO CONC 
LUSIVO < INDIRIZZO DI PARTENZA 
( 3 GIÙ 1 GOSUB1 000 : GOTO 230 : rem 27 

260 PRINT: PRINT: PRINT srem 179 

300 PRINT" (CLR) " ; CHRS { 1 4 ) : AD=S trem 56 
310 PRINTR!GHT${"0000"+MID$ (STRS (AD) ,2) ,5 
:forj-1t 06 :rem 234 

320 GOSUB570 j 1FN=— 1 THENJ=J+N : GOTO 3 20 

: rem 2 28 

390 1FN--211THEN71 0 treni 62 

400 I FN- - 204THEN790 treni 64 

410 IFN=- 20 6THFNPRINT: PRINT" (GIU 1 JlNSERIS 
CI UN NUOVO { 4 SPAZI ) INDIRIZZO" ? tlWPU 
TZZ treni 42 


41 5 IFN--206tHENIFZZ<SORZZ>ETHENPRINT” 

{RVSjESCE DAL CAMPO DI VA-* secai 150 
41 6 I FN“- 206THENIFZZ<SORZZ>ETHEN PRINT" 

(RVS J LORI INDICATO" sGOSUBÌ 000 t GOTO 41 0 

:rem 105 

417 IFN** - 206THENAD-Z.Z : PRINT : GOTO 31 0 

treni 238 

420 I.FNO-1 96TT1EN480 treni 133 

43 0 PR I NT : I NPUT" LISTATO : DA" ; F : PRINT , " 

{ 2 SIN} A" ; tINPUTT trem 29 

440 I FF< SORF>EORT< SOR T > ET! 1 EN PR I NT" MI N I MQ " 
iS;" (SIN} f MASSIMO" ;E:GOTO430 

trem 36 

450 POR T =FT0TSTEP6 ; PRTNT: PBTNTRIGHT$ { "000 



0 fi +MID$ (STK${I) ,2) ,5) ; 

: rem 

30 

455 

FORK-0TO5:N«PEEK{I+K) ; 

I F K = 3THEN PRI NTS 


PC (10 ) ; 

:rem 

34 

457 

PRINTRIGHT$ {"O0"+MID5 (STR$(N) , 2) , 

3) 


t " j 

t rem 

157 

460 

GETASt IFA$>" n THENPRINT 

: PR I NT : GOTO 310 



t rem 

25 

470 

NEXTK:PRTNTCHR$ [20) ; : NEXTI : PRINT: 

PRIN 


T: GOTO 310 

: rem 

50 

480 

I FN< 0THENPRI NT : GOTO 31 0 

: rem 

1 68 

490 

A { J ) -N : NEXTJ 

; rem 

199 

500 

C KSUM * AD - 1 NT [ AD/ 256) *256: FORI * 1 T06 : C X 


SUM - (CKSUM+A (DJ AND 255 

: NEXT trem 

200 

510 

PRINTCHR$ (1 8) - :GOSUR57Q:PRINTCHR${20) 



treni 

234 

51 5 

IFN-CKSUMTHEN530 

treni 

255 

520 

PRINT: PRINT"LA RIGA E f 

STATA INSE 

-HIT 


A IN MANIERA ERRATA" 

: rem 

39 

525 

PRI NT" RI * INSERIRLA* : PRI NT sGOSUBÌ 000 : G 


0TO31 0 

t rem 

167 

530 

GOSUB20Q0 

t rem 

21 8 

54 0 

FORI »1 TQ6 : POKEAD+I-1 ,A(I) : NEXT 




: rem 

80 

550 

AD = AD + 6 : 1 F AD < ETHEN31 0 

:rem 

212 

560 

GOTO 71 0 

: rem 

1 08 

570 

N«0t Z-0 

: rem 

BB 
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580 

PRINT” [<+>}”; 

: rem 

79 


581 

GETAS: IFAS=" "THEN581 

irem 

95 


585 

PRINTCHRS (20} ; :A-ASC(A$) :IFA-1 30RA-44 



DRA=32THEN670 

: rem 

229 


590 

IFA>128THENN=- A: RETURN 

:rem 

137 


600 

IFA020THEN630 

: rem 

10 


610 

GOSUB690 : IFI -1 AN'DT = 44THENN-- 

1 : PRINT" 



(SIN) {SIN}"; : GOTO 6 9 0 

:rem 

172 


620 

GOTO 570 

: rem 

109 


630 

I F A < 4 BORA > 5 7THEN 580 

:rem 

105 


640 

PRINTAS; :N=N*10+A^48 

rrem 

106 


6 50 

I FN> 2 55THENA=20 : (30SUB1 00 0:GOTO600 





: rem 

22 9 


660 

Z = Z+1 : IFZ< 3THEN58 0 

: rem 

71 


670 

I F Z = OTHENGOSUB 1 000:GCT0570 

: rem 

114 


680 

PRINT" : RETURN 

: rem 

2 40 


690 

S%*PEEK (209) +25 6* PEEK (210) +PEEK (211) 




: rem 

149 


692 

FORI = 1 TO 3 : T=PEEK (Sl-I) 

srem 

68 


695 

I FT< > 4 4 ANDT< > 58THEN POKES % - 1 f 

32 : NEXT 




srem 

205 


700 

PRINTLEFT$ (" ( 3 SIN)", 1-1);: 

RETURN 




srem 

7 


710 

PRINT" (CLR) {RVS}*** SAVE *** 





t 3 GIÙ* }" 

: rem 

236 


720 

INPUT" (GIU 1 } NOME DEL FILE”; 

FS 





srem 

199 


730 PRI NT: PRINT" { 2 GIU * }[RVS }N {OFF } ASTRO 
0 ( RVS } D { OFF } I SCO : (N/D) M : rem 12B 

740 GETA$:IFA$<>”N"ANDA$<>"D"THEN74Q 


i rem 30 

7 50 DV=1-J* ( A$ = ,, D" ) :IFDV=8THENF$=”0:"+F$ 

: rem 158 

760 T$ = F$ : ZK-PEEK ( 53 ) +256*PEBK ( 54 ) -LEU (T$ 
) :POKE7B2,2K/256 :rcm 3 

762 POKE78 1 , ZK-PEEK (782) *256: POKE780 ,LEN ( 

T$) : SYS6546 9 :rem 109 

763 PQKE78 0 , 1 : FOKE78 I , DVs POKE782 , 1 :5YS654 

6 6 : rem 69 

765 P0KE254 ,S/256:FOKE253,S- PEEK (254) *256 

: POKE780 , 253 :r aiti 12 

766 PQKE78 2 , E/256 : POKE781 ,E- PEÉK (782) *256 

: SYS654 96 :rem 124 

770 IF(PEEK(7B3) ANDl ) OR JST AND 191) THEN78Q 

treni 111 


MLX versione 2,0 per C64 

100 P R I NT " [CLRj [CYN}";CHR0(1 42) ;CHR$ (8) ? : 

PGKK5328Q , 0 ; POKE5328 1 ,0 ;rem 71 

101 PQKE788, 52: REM DISABILITA RUN/STOP 

s rem 89 

110 PRINT M ( RVS} { 40 SPAZI}*'? : rem 176 
120 FRINT i, [RVSH 15 SPAZI } (DES } (OFF} [<*>) 
" { RVS } { DES } { DES } { 2 SPAZ I }[<*>]{ OFF } 

[<*>]2< HVS}~{RVS} { 13 SPAZI}"; 

: rem 250 

130 PRINT** ( RVS H 15 SPAZI] (DES} [<N>] [ <II> ] 
(DES} [ 2 DES) { OFF } “ { RVS }^ [ < * > ] { OFF } 
l < * > 1 ( RVS } [ 13 SPAZlT"! : rem 220 

140 PRINT" { RVS f { 40 SPAZI}” : rem 120 

200 PRINT” ( 2 GIU* } [ PUR) EDITOR DI CODICE 
MACCHINA VERSIONE 2 , 0 { 3 GIU*}" 

:rem 126 

210 PRI NT" [ < 5>] { 2 SU} INDIRIZZO DI PARTE 
NZA{ 2 SPAZ I } n ; : INPUTS : F= 1 - F ;C8 ~CHR$ ( 
31+1 ì 9 * F ) : rem 85 

220 IFS < 2 560R ( S> 4 Q960ANDS< 4 91 52)ORS>53247 
THENGOSUB30G0:GOTO21 0 srem 235 

22 5 PRINT: PRINT: PRINT : rem 100 


775 PRINT" {GIU* JOPERÀZIONE CONCLUSA » " : END 

:rem 152 

780 PRINT” (GIU* }ERRORE DI REGISTRAI IO- NE. 



R I PROVA * " S I FD V= 1 TH BR 7 2 0 

: rem 

B 

781 

OPEN 15,8,15: INPUT# 1 5 , El $ 

,E25 : PRINTEl 5 


; E 2$ : C LOS E 1 5 : GOTO? 2 0 

: rem 

103 

782 

GOTO 720 

: rem 

115 

790 

PRINT" (CLR} {RVS}*** LO AD 

* * * 



{ 2 GIU 1 )” 

s rem 

212 

800 

INPUT” { 2 GIU*} NOME DEL 

FILE" ;F$ 




: rem 

.215 


810 PRINT: PRINT" [ 2 GIU ' H RVS }N (OFF } ASTRO 
O { R VS } D (OF F ) I SCO : (N/D) " ! rem 127 

820 GETA$ : I FA$< > ” N" AND A$ < > " D ” TH £N 8 2 0 

:rem 20 

830 DV»1 -7* { AS = "D” ) : I FD V- 8TH ENF$ ^ ” 0 : " +F $ 

:rem 1 S7 

840 T$ 33 F$ : ZK * PEEK ( 5 3 ) + 2 5 6 * PEEK (54) - LEN (T$ 

) :POKE782,ZK/256 : rem 2 

841 PGKE7BÌ , ZK- PEEK (782)*256: POKE780 , LEN ( 

T?):SY565469 :rem 107 

845 POKE780 , 1 :PQKE781 , DV: POKE7B2 , 1 :SYS654 
66 :rem 70 

850 POKE78Q , 0 : SYS 6549 3 :rem lì 

860 IE (PEEK (783) ANDl ) OR (ST AND 1 9 1 ) THEN 870 

t rem 1 1 1 

865 PRINT" (GIU ’ ) OPERA ZI ONE CONCLUSA GOT 
0310 :rem 142 

8 70 PRINT” {GIU 1 }ERRORE DI CARICAMENTO , RI P 
ROVA .(GIU* }" :IFDV=1 THEN 800 : rem ~4 3 

880 OPEN 1 5,8/1 5: INPUT*! 5,El$*E2? : PRINTEl S 
;e 2$:CLOSET5:G0TGBOQ :rem 102 

1000 REM CICALINO : rem 23! 

1001 P0KE36B78, 1 5 : PQKE36874 , 1 90 : rem 206 

1 002 FORW a 1 TQ 3 0 0 : NEXTW : rem 117 

1 003 POKE 36 078 r 0 : POKE36 074 , 0 : RETURN 

:rem 74 

2000 REM CAMPANELLO :rem 130 

2001 FORNAI STO OS TE P- 1 : POKE36 8 78 , W: POKE36 8 

76, 2 40: NEXTW ;rem 22 

2002 POKE36876 , 0 : RETURN :rom 119 

3000 PRINTC$ ; ” {RVS ) NON IN PAGINA ZERO O 

{ 2 SPAZI) SU ROM ( 4 GIU 1 } lf : GOTO! 0 00 

: rem 23 


230 PRINT” [<5>]( 2 SU} INDIRIZZO CONCLUSI 
VO{ 3 SP AZ II"; : I NPUTE : F= 1 - F : C$ -GHR$ ( 3 
1+119*F) :rem 92 

240 I FE< 2 560R ( E> 4 0 9 6 0ANDE< 4 9 1 52}ORE>53247 
THENGOS UB 3 0 0 0 : GOTO 230 :rem 103 

250 IFE<STHENPRINTC0; ” {RVS} INDIRIZZO CONC 
LUSIV0< INDIRI ZZO INIZIALE” ;rem 200 
255 I FE< STHENGOSUB 1 0 0 0 : GOTO 230 :rem 119 
260 PRINT : PRINT: PRINT :rem 179 

300 PRINT " ( CLR } " ; CHR$ (14) : AD= S : P0KEV+ 2 1 ,0 

: rem 225 

31 0 A-l :PRINTRIGHT5 ( " QQ00 " +MIDS (STR$ (AD) , 
2) ,5) :F0RJ=AT06 :rem 227 

315 FORJ=AT06 : rem 33 

320 GOS UB 5 70 : 1 FN= - T THEN J= J+ N : GOTO 3 2 0 

* : rem 228 

390 IFN=-21 1 THEN71 0 : rem 62 

400 IFN" - 204THEN790 srem 64 

410 IFN= - 206THENPRI NT : INPUT" { GIU * ) INSERÌ 
RE IL NUOVO .INDIRIZZO”; ZZ : rem 13 
41 4 IFN--206THENIFZZCSORZZ>ETHENPRINT" 

{RVS} ESCE DAL CAMPO DI VALORI INDICAT 
O" srem T05 
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415 IFN=-2O6THENIFZZ<SORZZ>ETHERGOSUBla0O 
: GOTQ4 1 0 :rem 202 

417 IFN=-206THENAD»ZZ:PRINTiGOTO31 Q 

i rem 238 

420 IFNO-196THEN48G trem 133 

430 PRINTt INPUT M LlSTATO:DA";F:PRINT" 

{ 9 SPAZI } A" ; : INPUTT trem 133 

440 I FF< SQRF>EORT< SGRT> ETHENPRI NT " M IN I MO " 
;S; " MASSIMO"; E; " ! [<5>1 ":GOTO430 

trem 147 


450 FOR I = FTOTSTEP6 : PRI NT i PRI NTRI GHT5 f"000 



0 **+MlD$ ( STR$ ( I ) » 2 ) f 5 ) ; " : " ; 

trem 

30 

451 

FORK=0tO 5 t N~ PEEK ( t+K) : PRI NTRI GHT$ ( 

"00 


"+MID$(STR$(NJ ,2) ,3) 

trem 

66 

460 

GETA$ :IFA$> ""THENPRINT: PRINT 

: GOT031 0 



: rem 

25 

470 

NEXTK : PR1NTCHRS ( 20 ) ; : NEXTI : PRINT : PRIN 


T : GOTO 3 1 0 

trem 

50 

480 

IFN< 0 THENPRINT : GOTO 3 1 0 

trem 

168 

4 90 

A ( J) -NtNEXTJ 

: rem 

199 

500 

CKSUM-AD- INT ( AD/2 56) *2 56 : FORI-1 T06 

:CK 


SUM= (CKSUM+ A ( I ) ) AND2 55 : NEXT 

: rem 

200 

510 

PRINTCH R$ ( 18} ; :GOSUR570 tPRlNTCHRS [146 


) ; 

trem 

94 

51 1 

IFN= - 1 THEN A- 6 : GOTO 3 1 5 

: rem 

254 

51 5 

PRINTCHRS (20) : I FN-CKSUMTHEN5 30 




trem 

122 

520 

PRINT: PRINT" (RED) LA LINEA E 1 

STATA 

IR 


SERITA IN MANIERA" 

: rem 

157 

525 

PRINT^ERRATÀ * RI PETERE (< 5> ] " 

: PRINT 

1 1 GO 


SUBÌ 000 : GOTO 3 1 0 

trem 

27 

530 

GOSUB2 000 

trem 

21 8 

54 0 

FORI = 1 T06 : PO KEAD+ 1 - 1 ,A(I) :NEXT:POKE54 


272 r 0 : POKE54 273 , 0 

trem 

227 

550 

AD=AD+6tIFAD<ETHEN31 0 

trem 

21 2 

560 

GOTO 71 0 

trem 

108 

570 

N=0:Z=0 

trem 

88 

580 

PRINT" [<">] 

trem 

81 

581 

GETAS : I FAS - " " THEN 5 8 1 

: rem 

95 

582 

AV= - (A$*"M H )-2* (A$“ w , f, )-3*(AS”"-"Ì 

-4* 


( A$ ^"J") - 5 * ( AS - " K" ) -6* ( A$ = W L 





:rei 

41 

583 

AV a AV-7* ( A$® W U W )-8*(A$" M I")^ 

9* (AS- 

"O" 


) : IF AS = "H " THENAS - " 0 " 

trem 

134 

584 

I FAV> OTHENAS *CHR$ ( 4 8 + AV ) 

: rem 

134 

585 

PRINTCHR$ (20) ; :A=ASC(A$) tIFA 

= 7 30RA 

l= 44 


ORA-32THEN670 

trem 

229 

590 

IFA > ! 2 8THENNN - A : RETURN 

t rem 

137 

600 

IFAO20THEN630 

t rem 

10 

61 0 

GOSUB690 : IFI=1 ANDT=44THENN=- 

1 : PRI NT 11 


(SIN) [SIN}"; : GOTO690 

: rem 

172 

620 

GOTO570 

trem 

109 

630 

I F A < 4 BORA > 5 7THEN 580 

: rem 

105 

640 

PRINTA$ ; :N=N*1 O+A-46 

trem 

106 

650 

IFN>2 5 5THENA= 20 tGOSUR 1 000 : GOTO600 




trem 

229 

660 

Z=Z+1 :IFZ<3THEN580 

:rem 

71 

670 

IFZ*0tHENGGSUB1 000 :GOTO570 

trem 

1 1 4 

680 

PRINT" : RETURN 

trem 

240 

690 

Sl-PEEK (209) +256*PEEK(21 0} +PEEK(2T1 ) 



trem 

149 

691 

FORI-1 T03 :T=PEEK (S%- I ) 

t rem 

67 

695 

IFT< >44 ANDTO 5 BTHENPOKES 1 - 1 , 

32 tNEXT 


; 

:rem 

205 

700 

PRINTftìEPT$ {"( 3 SIN3",I-1);: 

RETURN 


3*1 ’ 

: r em 

7 

71 0 

PRINT" {CLRHRVS}*** SAVE *** 



J 3 GIU'}" 

trem 

236 


715 PRINT" ( 2 GIÙ'} PREMERE { RVS } RETURN 
{OFF} PER USCIRE DAL ShVElGÙFT* 

trem 103 


720 F$ = "" : INPUT”! GIU' } NOME DEL FILE";F$tI 
FF$ = n "THENPRINT SPRINT : GOT03 1 0 

- :cem 42 

730 PRINT : PRINT" { 2 GIU 1 } (RVS }N[ OFF } ASTRO 
O (EV5}D(0FF} ISCOt (N/D)" t rem 128 

74 0 GETA$ : I FA$ < > " N " ANDAS < > " D "THEN7 4 0 

trem 30 

750 DV= ì -7* ( A$ " D ” ) t IFDV®9THENF$="0 : "+F$ : 

OPENl 5, 8, 1 S r "S"+F$:CLOSEl 5 trem 21 2 
760 T$=F$ SZK=PEEK(53) +2S6*PEEK (54) -LEN{TS 
} tPOKE782,ZK/256 : rem 3 

762 POKE? 81 , ZK- PEEK ( 782) *256 : POKE780 , LEN ( 

T$ ) : SYS654 69 trem 1 09 

763 POKE780 , 1 :POKE781 , DV :POKE782 , ì : SYS 654 

66 trem 69 

76 5 K-S : POKE2 54 r K/2 56 : POKE253 , K-PEEK (254 ) 
*256tPOKE780,253 trem 17 

766 K=E+1 : POKE7 8 2 r K/ 2 5 6 : POKE 7 8 1 , K-PEEK (78 
2 ) * 2 5 6 i SYS 65496 :re m 235 

770 IF [PEEK £783) ANDl I OR [ 1 91 ANDST) THEN780 

: rem 1 1 1 

775 FRI NT* {GIU* ] FATTO* (GIU 1 } " ;GOT031 0 

; rem 201 

780 PRINT" { GIU' 1 ERRORE NEL SAVE-RI PROVA 1 " 

: I FDV= 1 THEN? 20 srem 104 

781 OPEN1 5,8, 1 5 : INPUT# 1 5,El$,E2$: PRINTEl S 

;E2$ tCLGSEl 5 : GOTO720 trem 103 

790 PRINT" (CLR } f RVS } ** * LO AD *** 

( 2 giu 1 } " srem 21 2 

795 PRINT" { 2 G I EJ 1 } FREMERE { RVS } RETURN 
(OFF) PER USCIRE DAL LOAD(GIU' } " 

trem 96 

800 F$ “ nw t INPUT" ( 2 GIU* (NOME DEL FILE";F 
$ : IFFS = " "THENPRINT : GOTO 31 0 : rem 115 

810 PRINT : PRINT" { 2 GIU* } { RVS} N{ OFF } ASTRO 
O { RVS } D ( OFF } IS CO ; (N/D) " : rem 127 

820 GETA$ : I PA$ < > " N "ANDAS < > rt D " TKEN8 2 0 

trem 28 

830 DV” I-7*(A$="D") ; IFDV* 8THEMFS = ”0 : "+F$ 

trem 157 

840 T$=FS:ZK*PEEKt53)+256*PEEK{54) -LÈN(TS 

) :POKE782 f ZK/256 trem 2 

841 POKK7 81 ,2K-PEEK (782) *2 56 : PGKE7 80 , LEN ( 

T$ ) : S YS6 546 9 :rem 107 

845 POKE7BQ, 1 :POKE78l ,DVtPQKE7B2, 1 :SYS654 
66 trem 70 

850 POKE780, 0ìSYS65493 trem 11 

860 IF (PEEK (783) ANDl ) OR ( 1 91 ANDST) THEN870 

trem 111 

865 PRINT "(GIU 1 } FATTO é ,f : GOT03 1 0 treni 184 
870 PRINT" (GIU 1 (ERRORE NEL LQAD-RIPETT ! 

[GIU* } " ! I FDV- 1 THEN8 00 treni 19 

880 OPENl 5,8, 1 5:INPUT41 5,Kl$,E2$:PRlNTEl $ 
; B2$ tCLOSEl 5 : GOTOSOO : rem 102 

7 000 REM CICALINO t rem 231 

1001 PONE 5 4 296,1 5; POKE 54277,45: PO KB 5 4278, 
165 treni 207 

1 002 PQKE54276, 33 : POKE54 273 , 6:POKE54272, 5 

: rem 42 

1003 FORT* 1 TQ20G : NEXT : POKE54 2 76 , 32 : POKE 54 
2 73,0: POKE 54272*0: RETURN treni 202 

2000 REM CAMPANELLO : rem 130 

2001 POKE54296,! S : POKES4 277 , Q : POKE542 78 , 2 

47 : rem 152 

2002 POKE54276, 1 7 : POKE54273, 40tPOKE54272 , 

0 : rem 86 

i 

2003 FORT- ITO 1 00: NEXT : POKE 5 4276, 16 t RETURN 

: rem 57 

3000 PRINTCS ; " ( RVS } NON IN PAGINA ZERO O 
SU(DÉS)ROM " : GOT0 1 000 treni 240 
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SUPERCOMMODORE è li etm di 
presentare ai suoi lettori uno del 
più interessanti programmi fino 
ad ora pubblicati; benché sembri 
impossibile, questa poderosa 
utility permette al registratore a 
cassette di salvare, caricare e 
verificare un programma con la 
sfessa velocita del disk drive! 

S ì noti bene che non è il solito ed 
ormai diffuso “Turbotape” perC64 r 
ma consiste In un programma ben più 
potente, in quanto, una volta salvato su 
nastro un file In fonnato “turbo” e vo- 
lendolo ricaricare ri giorno dopo, esso 
si caricherà in memoria con un semplice 
LO AD, senza più dover avere in memo* 
ria SUPERTURBO, 

Per il salvataggio si digita semplicemen- 
te TSAVE invece di SAVE, ed il eompu- 
ter trasferisce il programma su nastro 
alla velocità della luce.,. 

Anche dopo aver usato SUPERTURBO 
per intere settimane, stenterete ancora 
a credere che sia possibile salvare e 
caricare così velocemente un program 
ma da cassetta! 

SUPERTURBO è In versione per C64 
e per VfC 20 (è richiesta T espansione 
di memoria da almeno 8 Kbyte per ospi- 
tare il generatore de! SU PER TURBO, 
mentre una volta generato 11 program- 
ma questo funzionerà anche sul VfC 
inespanso). 

Esistono veramente pocne regole asso- 
lute neirusG dei computer, ed una dì 
esse è che, da che mondo è mondo, i 
registratori a cassette sono sempre stati 
enormemente più lenti dei drive per 
floppy disk. Lunghi programmi, che Im- 
piegano solamente pochi secondi per 
essere caricati in memoria da disco, ri* 
chiedono lunghe attese di Interi minuti 
se caricati da nastro. Ciò avveniva fino 
a ieri. 

SUPERTURBO riscrive queste regole 
assolute. SUPERTURBO è una utility 
che porta la velocità del vostro regi sta- 
tore ai livelli di quella del disk drive, 
Non richiede alcuna modifica ne al vo- 
stro computer né al registratore di cui 
disponete e funziona sia con programmi 
BASIC che con programmi in linguaggio 



macchina Soprattutto, è “user frien* 
dly", cioè molto facile da usare anche 
per ì principianti. Il grande vantaggio di 
SUPERTURBO, rispetto ad altri pro- 
grammi concorrenti, è che esso non ri- 
chiede di ricaricare in memoria l’utility 
prima di eseguire il “Turboload* di un 
programma. 

Tutto ciò che dovete fare è leggere le 
seguenti istruzioni d’uso. 

Digitare e personalizzare ii 
SUPERTURBO 

Le seguenti note per la digitazione del 
SUPERTURBO si rivolgono, ovviamen- 
te. a chi riceve la rivista senza cassetta 
allegata; raccomandiamo tuttavia a tut- 
ti di leggere questo paragrafo, in quanto 
verranno descritte alcune POKE da ef- 


fettuare prima di caricare il programma 
(anche quindi dalla cassetta allegata a 
SUPERCOMMODORE) e come “perso 
nalizzare” il programma, 
SUPERTURBO è scritto interamente in 
linguaggio macchina, 11 programma 
BASIC qui presentato nelle due versio- 
ni per VIC 20 e C64-, e inserito sulla 
cassetta allegata alla rivista, serve per 
creare una copia del SUPERTURBO sia 
su disco che su nastro. 
Raccomandiamò vivamente, a ehi non 
fosse in possesso della nostra cassetta, 
di digitarlo con la massima attenzione e 
di usare OK*LIST (in altra parte della 
rivista); come sempre, ed a maggior ra- 
gione in questo caso, salvale 11 program- 
ma dopo averlo digitato e prima dì dar- 
gli Il RUM (dal momento che il program 
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ma modifica, durante l'esecuzione, im- 
portanti puntatori della memoria). Con 
questa procedura, se un errore di batti- 
tura provoca il blocco del computer* lo 
si potrà tranquillamente spegnere e 
riaccendere e ricaricare II programma 
per ricercare e correggere l'errore. 

Dal momento che i dati del SUPER- 
TURBO vengono inceriti nell'area nor- 
malmente occupata dai programmi BA- 
SIC. occorre rimappare la memoria pri- 
ma di caricare il programma generatore 
del SUPERTURBO, Per il C64 occorre 
spegnere e riaccendere il computer e 
digitare in modo diretto: 

POKE44, 14: POKE 14*256, Q:N EW 

Quindi occorre premere RETURN e prò 
cedere a) caricamento del generatore. 
Per il VIC 20 occorre spegnere il com- 
puter* inserire T espansione di memoria 
da almeno 8 Kbyte, accenderlo e digita 
re in modo diretto: 

POK E 44 , 32:POKE3 2 * 256 *0 : NEW 
POKE648.30:SYS58Ó48 

Prima di mandare in esecuzione il pro- 
gramma - sia in versione VIC 20 che 
in versione C64 — controllate la linea 
10: la variabile di stringa F1S determina 
il nome con Li quale verrà salvata la 
copia del SUPERTURBO. Modificatela, 
se preferite un nome differente. Inoltre, 
se desiderate creare una copia del SU- 
PERTURBO su disco invece che su na 
stro, modificate - sempre in linea 10 
la D=1 in D=8. Assicuratevi che la cas- 
setta o il disco sul quale desiderate regi- 
strare il SUPERTURBO sia corretta- 
mente inserito, rispettivamente nel regi- 
stratore o nel drive* prima di dare il 
RUN al programma generatore. 

Una volta usato quest'ultimo per creare 
una copia del SUPERTURBO su nastro 
o disco, esso non vi servirà più. 

La versione del SUPERTURBO che 
avete creato, chiamata “TURBO/64” o 
“TURBO/ VIC" la meno che abbiate 
modificato la lìnea 10), può essere cari- 
cata ed eseguita come un normale pro- 
gramma BASIC. Non è necessario usa- 
re l'Indirizzo secondario l (es. LOAD 
“TURBO/64", 8, 1 o LOAD “TUR 
BO/64"* 1* 1) quando si carica il SU 
PERTURBO. Una volta creato, il SU- 
PERTURBO può essere caricato ed 
eseguito sul Vìe 20 in qualsiasi configu- 
razione di memoria. 

Facile da usarsi 

Ecco alcune delle caratteristiche princi- 
pali del SUPERTURBO: 

- carica automaticamente al di fuori 
dell'area di memoria normalmente uti- 
lizzata dai programmi BASIC; 

- protegge qualsiasi configurazione di 
memoria stiate usando. Solo durante il 
TURBOSAVE ed il TURBQVERIFY la 
ROM del C64 viene passata in RAM; 
alla fine di queste operazioni viene ripri- 
stinata la configurazione precedente; 

- SUPERTURBO può essere usato 
con altre utility, come il SIMON 'S BA- 


SIC* il SU PER MONIT OR ed il PAL; 

_ SUPERTURBO trasferisce con Sicu- 
rezza anche programmi molto lunghi (fi- 
no a 49 Kbyte dì lunghezza nel C64), 
SUPERTURBO sottrae al C64 solo 642 
byte di RAM, e 639 nel VtC 20; 

- ì nomi dei file possono avere la lun 
ghezza usuale di 16 caratteri; 

- oltre a trasferire programmi BASIC, 
SUPERTURBO salva, carica o verifica 
dati o codice macchina da qualunque 
parte di RAM si desideri, con l'eecezio 
ne della RAM nascosta “sotto" la ROM 
del Remai. Può essere invece salvata 
anche la RAM “sotto" la ROM dei BA 
SIC nel C64; 

—, un normale comando LOAD cariche- 
rà in memoria un qualsiasi programma 
salvato con SUPERTURBO ed il carica- 
mento avverrà a velocità “Turbo". 

È molto semplice usare il SUPERTUR- 
BO: spegnete e riaccendete il compu- 
ter; se desiderate usare utility addizio- 
nali, come ad esempio il SIMON T S BA 
SIC* caricate e mandate in esecuzione 
per prima cosa queste ultime. Quindi 
digitate NEW. Ora caricate il SUPER 
TURBO e mandatelo in esecuzione; nel- 
la versione per C64 apparirà un menu 
che offre due tipi di locazione a scelta 
per il SUPERTURBO: 

1 Nella RAM de! BASIC. L'indirizzo 
finale del SUPERTURBO qui rilocato 
sarà correntemente indicato come limi- 
te della memoria dal puntatore nelle lo- 
cazioni 55 e 56, Si deve scegliere que- 
sta opzione se volete far coesìstere il 
SUPERTURBO con alcune utility. Il SI- 
MON’S BASIC, ad esempio, è una dì 
queste. Qualunque utility che faccia uso 
della RAM tra 52606 e 53247 (per 
esempio* il DOS WEDGE) richiede que- 
sta opzione. (Questa è invece l'unica 
opzione possibile per il VIC 20 ed avvie- 
ne In modo automatico). 

2. Nel buffer di 4 Kbyte. Usando que^ 
sta opzione, è possibile "turbo sai va re" 
tutta la RAM tra 0 e 52606 in un unico 
lungo blocco* che comprende la RAM 
“sotto" la ROM. 

Per prendere confidenza con l'uso del 
SUPERTURBO, per il momento evitia- 
mo di usarlo in combinazione con altre 
utility. 

Accendete semplicemente il computer* 
caricate SUPERTURBO e dategli il 
RUN (non cercate di modificare in alcun 
modo fa porte In BASIC del SUPER 
TURBO!). Per il C64 selezionate T op- 
zione 2. 

Utilizzo dal SU PERTURBO 

Leggerete ora sullo schermo dove è sta- 
to rilocato il SUPERTURBO, insieme ai 
comandi da usare per attivare le carat- 
teristiche del programma. 

Digitate NEW per eliminare dalla me 
moria il generatore del SU PERTURBO . 
Scrivete quindi un programma, oppure 
caricatene uno in memoria. Per “Turbo- 
sai vare" questo programma su nastro, 
digitate: , a _ 

TURBOSAVE “nome file 

e premete RETURN. {Si può abbreviare 


la parola chiave TURBOSAVE in TSA- 
VE). Verrà visualizzato ì! solito messag 
gio: 

PRESS RECORD & PLAY 

Premete dunque questi tasti e prepara- 
tevi a stupirvi. 

Un header {te statai contenente una spe 
ciaìe routine di “Turboload" viene scrit- 
ta sul nastro (nel C64 lo schermo scom- 
pare mentre viene scritta questa routi 
ne). Quindi, una serie di colori apparirà 
sullo schermo durante la registrazione 
vera e propria del programma. Alia vi- 
ne del l'operazione lo schermo ritornerà 
normale. 

Se volete verificare il programma “Tur- 
bosalva toT ri avvolgete il nastro e digi- 
tate: 

TURBOVERIFY “nome file" 

(TURBOVERIFY può essere abbrevia- 
to in TVÉRIFY). Vedrete il solito mes- 
saggio: 

PRESS PLAY 

Premete il tasto Play sul registratore, 
(Nel C64. lo schermo scomparirà du- 
rante la verifica del programma). Se do- 
veste ottenere un “?QUT OF MEMO 
RY ERROR", digitate semplicemente 
TVERIFY senza farlo seguire dal nome 
del file. Non appena verrà letto l’header 
riceverete sullo schermo i soliti messag 
gl; come sempre* è possibile nel C64 
eliminare la pausa premendo il tasto 
Commodore. Se viene trovato qualche 
errore durante il TURBOVERIFY. lo 
schermo ritornerà normale con visualiz- 
zazione del messaggio “?VERIFY ER- 
RORE Se invece il programma supera 
la verifica, verrà visualizzato il consueto 
“VERIFY OKT 

Caricamento alla velocità 
della luce 

Non vi serve il SUPERTURBO per cari- 
care programmi che siano stati “Turbo- 
salvati" Digitate, come normalmente, 
LOAD e tutto avverrà come al solito, 
con la differenza che il caricamento av- 
verrà a velocità “Turbo", 

Ecco ora alcune note aggiuntive sul SU- 
PERTURBO 

Per salvare programmi in linguaggio 
macchina occone specificarne gli Indi- 
rizzi iniziale e finale. Ad esempio, se II 
vostro programma in linguaggio mac- 
china risiede in memoria tra gli indirizzi 
864 e 890* salvatelo in questo modo: 

TSAVE “nome file" ,864, 891 

Si noti che occorre usare l'Indirizzo fina- 
le più uno. Per salvare l'intero contenu- 
to della RAM del €64, compresa quella 
“sotto" la ROM, digitate: 

TSAVE “ n om e " *2049*52606 
Come detto, molte utility sono perfetta- 
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mente compatibili con il SUPERTUR 
BO, Se usate il SIMON'S BASIC, tutta 
via, dovete evitare 11 RUN/STOP + RE 
STORE f ed 11 comando COLO non ha 
effetto. Se inoltre usate il DOS WED- 
GE ( scegliete l'opzione 1 per rilocare il 
SUPERTURBO nella RAM del BASIC 
ed evitare conflitti tra i vari programmi 
in linguaggio macchina. 

A causa dell'alta velocità sarà opportu 
no usare solo nastri di alta qualità per 
il proprio archivio (a proposi to 1 usate 
comunque sempre cassette con regola 
rione BIAS normale ed equalizsazione 
a 1 20 microsecondi - cioè cassette nor 
mali - in quanto E "utilizzo di cassette al 
cromo, metal e così via, non essendovi 
predisposto il registratore, provoca no 
tevoli inconvenienti nel caricamento). Il 
SUPERTURBO, come del resto avvie- 
ne comunemente anche senza di esso 
- e lo sappiamo bene noi di SUPER 
COMMODORE...! - può, a causa delle 
differenti tarature delle testine nei regi- 
stratori, non essere in grado di caricare 
programmi salvati da altre unità a cas- 
sette. Se si ha motivo di supporre che 
!e testine de! proprio registratore siano 
fuori allineamento (tipicamente quan- 
do, malgrado un'accurata pulizia delle 
stesse, non sì riescano a caricare prò 
grammi registrati da terzi) e non si desi 
deri rivolgersi ad un tecnico per la tara- 
tura del registratore, si può agire sulla 
vitina di regolazione deiFazlmuth delle 
testine, posta in corrispondenza del fo- 
r e lì ino sulla parte superiore dello chas- 


sis del Datassette, Tale vitina, che com- 
pare sotto il foro quando si preme II 
tasto Play, dovrà essere ruotata per 
successivi intervalli seguiti da prove di 
caricamento, per un massimo di mezzo 
giro. Si provi prima in senso orario: se 
l'esito è sempre negativo, la si riporti 
nella posizione originaria e Si ripeta la 
procedura in senso antiorario, fino a 
che le prove dì caricamento diano esito 
positivo. 

Ritornando al SU PER TURBO, si noti 
che programmi "Turbosalvati" dal C64 
non possono essere caricali sul VIC 20, 
e viceversa. Ciò a causa delle differenze 
tra le due versioni del SUPERTURBO, 
che verranno analizzate sul prossimo 
numero. 

Si possono usare i comandi LOAD, 
TSAVE e TVERIFY solo in modo dixet 
to, e non da programma. Inoltre, il SU- 
PERTURBO non può cercare su una 
cassetta contenente vari programmi 
“Turbosalvatr un file contrassegnato 
da un certo nome: occorrerà invece ol- 
trepassare, premendo F FWD, ì pro- 
grammi che non interessa caricare. A 
questo proposito è molto utile utilizzare 
il contametri del nastro. Nessun pro- 
gramma "'Turbosalvato’ 1 si rilocherà nel 
caricamento: esso verrà sempre e co 
munque caricato nella stessa area dì 
memoria dalla quale è stato salvato. In 
pratica, è come se si usasse sempre il 
comando LOAD r " , t l ,1 . 

Ciò è particolarmente importante se 
usate il VIC 20 con diverse espansioni 


di memoria: un programma Turbosal 
vato" da un VIC espanso non caricherà 
normalmente in un ViC inespanso, e vi 
ceversa. 

Quanto è veloce? 

I nostri test hanno appurato che un pro- 
gramma da 12 Kbyte impiega 34 secon- 
di per essere caricato da un disk drive 
1541, e 44 secondi per essere caricato 
da nastro usando SU PER TURBO. Tut- 
tavia. il tempo effettivo di caricamento 
con il SUPERTURBO è di solo 28 se 
condi, se si prescinde dal tempo speso 
per leggere Theader in plastica alPìnizlo 
del nastro: abbiamo infatti eseguito que- 
sti test utilizzando una cassetta compie 
famente riavvolta, presumendo che 
molte persone non posizionino il nastro 
esattamente sul punto di inizio di un 
programma, ma un po' prima. Se inve- 
ce sì posiziona il nastro esattamente in 
corrispondenza deJl'inizio di un prò 
gramma. con il SUPERTURBO esso 
viene caricato con una velocità superio 
re q quella dei disk drive. 

II Tsave di un programma da 12 Kbyte 
impiega 42 secondi, contro i 40 del disk 
drive 1541. 

SUPERTURBO è una delle utility più 
interessanti e,,, fondamentali che possa 
avere chi non dispone di un disk drive! 

A proposito, da questo numero in poi. 
tutte le cassette allegate a SUPERCOM 
MODORE contengono i programmi regi 
strofi in formato SUPERTUREOf ! ! 


Generatore Superturbo 



4175 

DATA 

41 ,170,50,53,54,172 

:rem 

140 




4181 

DATA 

ì 94,40, 49, 57,52, 4'T 

; rem 

107 

versione per VIC ZO 



4187 

DATA 

34,45, 34, 1 94,40,49 

: rem 

1 1 2 




41 93 

DATA 

55, 52,41 ,170,50,53 

: rem 

98 

10 FI$ “"TURBG/VIC 11 : D = 1 :REM PER 

DISCO 

CÀMB 

4199 

DATA 

54,172,1 94,40,49,55 

: rem 

169 

IA 1 IN 8 

: rem 

50 

4205 

DATA 

53,41 ,0,1 55, 16,1 30 

: rem 

84 

20 PRINT" {CLR] { 4 GIU* } ( 2 SPAZI } MEMORI ZZ 

4211 

DATA 

0, 78, 36,178,1 99, 40 

trem 

109 

, SU PERTURBO f 5 GIU * } " 

: rem 

37 

421 7 

DATA 

51 ,52,41 ,170,34,78 

; rem 

100 

30 POR 1=4097 TO 5260 


20 

4223 

data 

65,77,69,34,1 70,199 

: rem 

171 

40 READ A : PQKEI , A:CK=CK i-À : NEXT 

trem 

89 

4229 

DATA 

40, 51 , 52,41 , 58,79 

: rem 

58 

50 IFCK< >12 3374 THENPRI NT" { RVS } ERRORE 

NEL 

4235 

DATA 

80,36,1 78,78,36,1 70 

: r em 

165 

LE ISTRUZIONI DATAI 1 *: STOP 

: retri 

92 

4241 

DATA 

34,91 ,44,66,65,44 

i rem 

57 

60 PRINTTAB(7) " { RVS) DATA OKf 2 

GIU' )" 

: PRI 

4247 

DATA 

69,65,93,0,229,16 

: r em 

65 

NT "PREMI UN TASTO PER SALVARE,,," 


4253 

DATA 

1 40,0,90,83,36,178 

: rem 

102 


: rem 

179 

4259 

data 

34,83,89,83,40,54 

: rem 

69 

70 GET A$: IFA5-""THEN70 

srem 

241 

4265 

DATA 

56,48,41 ,34,1 70,79 

: rem 

114 

80 PRINT" {CLR}POKE43, 1 :POKE44, 

1 6:POKE45, 1 

4271 

DATA 

80,36,58,90,86,36 

treni 

66 

41 : POKE4 6 , 20 f 2 GIU 1 }" 

trem 

59 

4277 

DATA 

1 78,34,83,89,83,40 

: rem 

124 

90 PRINT*'SAVE ,, CHRS (34) ; [34) ; " 

,"D 

4283 

DATA 

54, 56, 51 ,41 , 34, 170 

:rem 

101 


; rem 

243 

4289 

DATA 

78,36, 58, 84, 83, 36 

: rem 

82 

100 POKE631 , 1 9:PGKE632, 1 3:PQKE633, 1 3: 

poke 

4295 

DATA 

1 78,34,84,83,65,86 

: rem 

129 

1 98 r 3 : END 

t r em 

148 

4301 

DATA 

69,34, 170,79,80,36 

: rem 

109 

4097 DATA 32,16,100,0,153,34 

s rem 

87 

4307 

DATA 

58,84,86,36,1 78,34 

: rem 

123 

4103 DATA 147,32,32,32,144,19 

: rem 

139 

431 3 

DATA 

84,86,69,82,73,70 

trem 

69 

4109 DATA 32,84,85,82,66,79 

; rem 

72 

4319 

DATA 

09,34, 1 70,78,36,0 

trem 

63 

4115 DATA 83, 65, 86, 69,47,76 

: rem 

76 

4325 

DATA 

11,17,150,0,153,34 

: rem 

84 

4121 DATA 79,65,68,32,31 ,17 

trem 

56 

4331 

DATA 

17,144,18,84,79,32 

: rem 

1 08 

4127 DATA 0,61 ,1 6, 11 0,0,1 58 

; rem 

34 

4337 

DATA 

83,65, 86,69, 58; 31 

s rem 

75 

4133 DATA 40,194,40,52,53,41 

: rem 

91 

4343 

DATA 

17,34,58,153,84,83 

trem 

112 

4139 DATA 170,50,53,54,172,194 

: rem 

205 

4349 

DATA 

36,44,34, 32,32, 79 

trem 

60 

4145 DATA 40,52,54,41,171,55 

trem 

96 

4355 

DATA 

82,34,58,1 53,90,83 

: rem 

114 

4151 DATA 57,53,41,58,156,0 

; rem 

5T 

4361 

DATA 

36,0,50,17,160,0 

trem 

241 

4157 DATA 112,16,120,0,153,34 

trem 

1 33 

4367 

DATA 

153,34,144,18,84,79 

: rem 

168 

4)63 DATA 78,79,87,32,65,84 

:r etti 

78 

4373 

DATA 

32,86,69,82,73,70 

: rem 

68 

4169 DATA 34,194,40,49,57,51 

; rem 

114 

4379 

DATA 

89,58,31,17,34,58 

trem 

75 
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4385 

DATA 

1 53,84, 86,36, 44,34 

rem 

117 

4391 

DATA 

32,32, 79,82, 34,58 

rem 

63 

4397 

DATA 

1 53,90, 86,36,0,1 1 2 

rem 

106 

4403 

DATA 

1 7,1 70,0,1 53, 34,1 7 

rem 

89 

4409 

DATA 

1 44,18,84,79, 32,76 

rem 

119 

4415 

DATA 

79,65,68,58,31 ,17 

rem 

70 

4421 

DATA 

34,58,153,34,76,79 

rem 

114 

4427 

DATA 

65,68,32,79,82,32 

rem 

68 

4433 

DATA 

76,79,65,68,34,78 

rem 

80 

4439 

DATA 

36,44,34,32,40,84 

rem 

55 

4445 

DATA 

85,82,66,79,32,78 

rem 

78 

4451 

DATA 

79,84,32,82,69,81 

rem 

71 

4457 

DATA 

85,73,82,69,68,4! 

rem 

77 

4463 

DATA 

0,0,0,56,165,45 

rem 

199 

4469 

DATA 

133,90,233,127,133,95 

rem 

4 

4475 

DATA 

165,46,133,91 ,233,2 

rem 

155 

4431 

DATA 

133,96,165,55,133,88 

rem 

218 

4487 

DATA 

133,174,166,56,134,89 

rem 

17 

4493 

DATA 

134,175,32,191 ,195,230 

rem 

51 

4499 

DATA 

89,1 65,88,1 66, 89,1 33 

rem 

242 

4505 

DATA 

193,134,194,172,0,3 

rem 

148 

4511 

DATA 

140,166,2, 172,1 ,3 

rem 

35 

4517 

DATA 

140, 1 67,2, 1 41 ,0,3 

rem 

37 

4523 

DATA 

142,1 ,3,133,55,134 

rem 

38 

4529 

DATA 

56,162,255,32,210,251 

rem 

250 

4535 

DATA 

32,27,253,32,27,253 

rem 

151 

4541 

DATA 

32,17,253,176,75,160 

rem 

204 

4547 

DATA 

0, 177, 172, 201 , 1 90,208 

rem 

250 

4553 

DATA 

240,232,169,32,224,6 

rem 

199 

4559 

DATA 

240, 1 3, 224, 7,208, 2 

rem 

98 

4565 

DATA 

1 69,1 57,224,11 ,208,5 

rem 

208 

4571 

DATA 

169,1 89,46, 169,162,145 

rem 

70 

4577 

DATA 

172,200,24,1 77, 172,1 01 

rem 

42 

4583 

DATA 

1 93,145,172,8,200,1 77 

rem 

4 

4589 

DATA 

1 72, 201 ,1 60, 240,249, 40 

rem 

45 

4595 

DATA 

10! ,194,145,172,224,4 

rem 

253 

4601 

DATA 

176,188,157, 170,2,232 

rem 

254 

4607 

DATA 

136,177,1 72,1 57,168,2 

rem 

8 

461 3 

DATA 

232,169,76,1 57,1 66,2 

rem 

21 2 

461 9 

DATA 

208,170,96,32,121 ,0 

rem 

148 

4625 

DATA 

168,32,11 5,0,192,148 

rem 

203 

4631 

DATA 

208,8,1 90,102,0,208 

rem 

141 

4637 

DATA 

10,108,166,2,192,149 

rem 

20 5 

4643 

DATA 

208,249,1 90, 29,0,76 

rem 

162 

4649 

DATA 

116,196,169,0,133,10 

rem 

205 

4655 

data 

32,209,225,169,0,32 

rem 

1 52 

4661 

DATA 

213,255,176,56,162,209 

rem 

54 

4667 

DATA 

142,161 ,3,202,142,163 

rem 

244 

4673 

DATA 

3,169,96,141 ,206,3 

rem 

1 09 

4679 

DATA 

32,81 ,3,8,169, 145 

rem 

67 

4685 

DATA 

32,21 0,255, 32,11 2,246 

rem 

246 

4 69 ì 

DATA 

40,208,8,32,17,253 

rem 

103 

4697 

DATA 

144, 3,76,141 , 225,1 62 

rem 

209 

4703 

DATA 

28, 76, 55, 1 96, 32,11 

rem 

108 

4 70 9 

DATA 

226,32,138,205,32,247 

rem 

254 

471 5 

DATA 

215,165,20,1 66,21 , 96 

rem 

204 

4721 

DATA 

76,246,224,1 69,183,1 90 

rem 

59 

4727 

DATA 

202,160,1,32,1 89,255 

rem 

201 

4733 

DATA 

169,1,1 70,168,32,1 86 

rem 

21 1 

4739 

DATA 

255,134,171 ,32,121 ,0 

rem 

1 95 

4745 

DATA 

201 ,34,208,32,1 36,230 

rem 

242 

4751 

DATA 

1 22,1 77, 1 22,240, 4, 201 

rem 

237 

4757 

DATA 

34,208,8,198,171, 165 

rem 

221 


4763 

DATA 

171 ,208,240,169,32,190 

srem 

50 

4769 

DATA 

201 , 1 ,232,224, 17,1 44 

s rem 

196 

4775 

DATA 

242,32,1 21 ,0,240,90 

:rem 

141 

4781 

DATA 

1 69,34,32,255,206,240 

srem 

0 

4787 

DATA 

83,190,85,0,133,78 

: rem 

120 

4793 

DATA 

1 34, 79,1 90,85, 0, 1 33 

srem 

163 

4799 

DATA 

80, 1 34, 81 ,190, 1 2,1 

srem 

106 

4 805 

DATA 

1 76,230,162,13,1 90,235 

srem 

43 

481 1 

DATA 

0,157,44,3,202,16 

srem 

39 

4817 

DATA 

247,162,44,160,3,134 

: rem 

202 

4823 

DATA 

193,132,194,162,60,134 

srem 

47 

4829 

DATA 

174,132,1 75, 70,1 57, 32 

; rem 

5 

4835 

DATA 

1 33,246,8,32,1 38,255 

: rem 

210 

4841 

DATA 

6,1 57,40,176, 1 31 ,1 69 

irem 

209 

484 7 

DATA 

16,133,183,32,44,247 

: rem 

209 

4853 

DATA 

1 90, 21 ,1 ,96,46,3 

t rem 

4 

4859 

DATA 

! 73, 28,1 45,1 33,1 39, 9 

: rem 

220 

4865 

DATA 

1 2, 1 41 ,28,145,208,23 

: reta 

201 

4871 

DATA 

160,3,185,43,0,153 

: r em 

98 

4877 

DATA 

78,0,1 36,16,247,48 

: r em 

121 

4883 

DATA 

179,230,78,208,2,230 

:rem 

21 1 

4889 

DATA 

79,165,78,197,80,165 

: rem 

243 

4895 

DATA 

79,229,81 ,96,88,162 

: rem 

190 

4901 

DATA 

0,1 60,0,1 32, 1 92,173 

: rem 

136 

4907 

DATA 

28, 1 45, 1 33,1 39,9,1 2 

: rem 

1 58 

4913 

DATA 

1 41 ,28,1 45,202,208,253 

: rem 

41 

4919 

DATA 

136,208,250,120,132,83 

srem 

44 

4925 

DATA 

1 69, 2, 1 90,1 38, 1 , 1 98 

:rem 

1 65 

4931 

DATA 

83,208, 247, 169, 9,1 33 

: rem 

21 7 

4937 

DATA 

83,165,83,190,138,1 

i rem 

166 

4943 

DATA 

1 98,83,208,247,1 65,78 

; rem 

25 

4 94 9 

DATA 

190,138,1 ,165,79,190 

srem 

221 

4955 

DATA 

1 41 , 1 , 1 65,80,1 90,141 

s rem 

200 

4961 

DATA 

1 ,165,81 , 190, 1 41 ,1 

: rem 

97 

4967 

DATA 

1 62,4,1 90, 1 34, 1 , 1 32 

srem 

150 

4973 

DATA 

171 ,177,78,190,146,1 

; rem 

218 

4979 

DATA 

1 90, 6,1 ,144,246,234 

s rem 

162 

4985 

DATA 

165, 1 71 , 190, 1 46,1 , 1 90 

* rem 

5 

4991 

DATA 

141 ,1 ,140,160,2,32 

: rem 

87 

4997 

DATA 

207,252,165,139,141 ,28 

: rem 

62 

5003 

DATA 

145,1 33,1 92,1 69,27,1 41 

: rem 

42 

5009 

DATA 

15, 1 44,96,202,208,253 

: rem 

250 

501 5 

DATA 

96,1 62,3,44,1 62,5 

: r em 

50 

5021 

DATA 

190,134,1 ,133,189,24 

: r em 

192 

5027 

DATA 

101 ,1 71 , 1 33, 1 71 , 169,8 

: rem 

247 

5033 

DATA 

133,164,190,190,1 ,166 

: rem 

24 5 

5039 

DATA 

1 63,202,208,253,1 90,190 





srem 

93 

5045 

DATA 

1 ,70,139,162,13,144 

: rem 

148 

5051 

DATA 

2,162,41,134,163,198 

srem 

1 97 

5057 

DATA 

1 64,240, 1 9, 162, 9,1 90 

trem 

206 

5063 

DATA 

134,1, 234,240,223,173 

: rem, 

238 

5069 

DATA 

32,145,73,8,141 ,32 

srem 

102 

5075 

DATA 

1 45,141 , 15,144,96,32 

: r em 

202 

5081 

DATA 

32,32,32,32,32,32 

: rem 

34 

5087 

DATA 

32,32,32,32,32,32 

: rem 

40 

5093 

DATA 

32,32,32,32,138,255 

i rem 

147 

5099 

DATA 

200,132,192,202,208,253 





:rem 

89 

51 05 

DATA 

136,208,250,120,173,27 

ì rem 

35 

51 1 1 

DATA 

145,41 ,63,141 ,27,145 

: rem 

191 

51 ! 7 

DATA 

1 69, 248,1 41 ,22,1 45,32 

: rem 

251 

51 23 

DATA 

225,3,1 02,1 09,1 69,2 

: retri 

1 48 

51 29 

DATA 

197,1 09,206,245,1 33, 1 23 





srem 

1 08 

51 35 

DATA 

1 60, 9,32, 209,3,201 

: rem 

90 

51 41 

DATA 

2,240,249,1 96,189,208 

srem 

4 

51 47 

DATA 

230,32,209,3, 1 36,208 

srem 

195 

51 53 

DATA 

246,1 33,1 72,32,209,3 

; rem 

196 

51 59 

DATA 

1 33, 1 73,32,209,3,1 33 

: rem 

1 98 

51 65 

DATA 

174,32,209,3,133,175 

: rem 

202 

5171 

DATA 

1 32,171 ,32,209,3,1 45 

srem 

1 92 

51 77 

DATA 

1 72, 36,1 6, 24, 1 01 , 1 71 

: rem 

1 97 


32 - SUPERCOMMODORE'® 3/85 


5183 DATA 133,171,32,27,253,32 trem 196 
5189 DATA 1 7,253, 1 44, 236, 32,209 trem 3 
5195 DATA 3,140,160,2,32,207 trem 89 
5201 DATA 252,165,139, 141 ,28, 145trem 42 
5207 DATA 88,133,1 92,32,66,246 trem 212 
5213 DATA 134,45,132,46,165,189 :rem 0 
5219 DATA 1 97 , 171 ,76, 1 54,225, T 69 arem 65 
5225 DATA 8,133,163,32,225,3 !rem 94 
5231 DATA 102,189,198,163,208,247 

: rem 105 

5237 DATA 165,189,96,169,2,44 trem 174 
5243 DATA 45,145,240,251,173,29 trem 251 
5249 DATA 145,72,173,33,145,142 ;rei 255 
5255 DATA 21,1 4 5,1 04,1 0,1 0,96 : rem 138 


Generatore Superturbo 
versione per C64 

10 FI$ = " TURBO/ 6 4 n ; D"1 : REM CAMBIA 1 IN 8 P 
ER DISCO trem 1 86 

20 PRINT" {CLR} [ 3 GIU 1 } "TAB ( 1 1 ) “MEMORI ZZ . 

SUPERTURBO { 3 GIU 1 }" irem 192 

30 FORI -2 0 49 TQ 3461 : rem 16 

4 0 READA i POKKI , A :CK~CK+A : NEXT ; rem 88 

50 IF CK< > 1 43 099 THENPRTNT'M 2 SPAZI } 

{RVS} ERRORE NELLE ISTRUZIONI DATAI" : ST 
OP trem 98 

60 PRINTTAB ( 1 6} " { RVS }DATA OK{ 3 GlU r }" : PR 
INTTAB 1 4) " PREMI UN TASTO PER SALVARE.. 
. 11 trem 80 

70 GETA? : IFA5“ n "THEN70 trem 241 

80 PRINT ,T {CLR}P0KE43, 1 i PQKE4 4 , B t POKE45 , 1 3 
4 : PGKE4 6,131 2 GIU 1 }" : rem 15 

90 PR1NT"SAVE ,1 CHR? (34) ; FI$ ?CHR$ { 34 ) ; " , " ;D 

: rem 4 6 


100 POKE631 , 1 9:POKE632, 1 3;POKE633,l 3:POKK 


198,3: 

:END 

ì rem 

148 

2049 

DATA 

62, 8,1 00,0, 1 53,34 

trem 

38 

2055 

DATA 

147, 17, 17, 17, 34, 163 

: reni 

1 51 

2061 

DATA 

49,50,41 ,34,18,32 

treni 

43 

2067 

DATA 

04,85,82,66,79,83 

3 rem 

79 

2073 

DATA 

65,86,69,47,76,79 

: r em 

82 

2079 

DATA 

65,68,32,1 46, 1 7, 17 

: rem 

113 

2085 

DATA 

17,17,34,58,1 53,34 

: rem 

105 

2091 

DATA 

32,32,32,32,82,69 

: rem 

47 

2097 

DATA 

76,79,67,65,84,69 

: rem 

88 

2103 

DATA 

32,34,79,58,17,1 7 

:rem 

58 

2109 

DATA 

0,140,8,110,0,153 

trem 

26 

211 5 

DATA 

34,32,32,32,32,32 

:rem 

31 

2121 

DATA 

32,32,49,46,32,66 

: rem 

46 

2127 

DATA 

65,83,73,67,32,82 

t rem 

62 

21 33 

DATA 

65,77,32,40,80,79 

trem 

57 

2139 

DATA 

73,78,84,69,82,32 

:rem 

72 

21 45 

DATA 

53,53,47,53,54,41 

trem 

51 

21 51 

DATA 

1 7,34, 58,153, 34, 32 

: rem 

96 

21 57 

DATA 

32,32,32,32,32,32 

trem 

35 

2163 

DATA 

50,46,32,70,82,79 

:rero 

55 

2169 

DATA 

77, 32,53, 50, 54,48 

trem 

61 

2175 

DATA 

54,32,84,48,32,53 

; rem 

56 

21 81 

DATA 

51 ,50,52,56,17,17 

: rem 

47 

2187 

DATA 

0,199,8, 120,0,151 

: rem 

45 

2193 

DATA 

49,55,49,44,48,58 

:rem 

74 

2199 

DATA 

1 33,34, 32,32,32,32 

: rem 

93 

2205 

DATA 

89,79,85,82,32,67 

: rem 

73 

2211 

DATA 

72,79,73,67,69,32 

ì rem 

64 

2217 

DATA 

40,49,47, 50,41 ,34 

: rem 

47 

2223 

DATA 

59,65,36,58,139,65 

: rem 

118 

2229 

DATA 

36,1 78,34,49,34, 1 67 

:rem 

167 

2235 

DATA 

1 51 ,49,55,49,44,49 

trem 

1 1 4 


2241 

DATA 

58,137,49,52,48,0 

$ rem 

55 

2247 

DATA 

216,8,1 30,0, 139,65 

itera 

98 

2253 

DATA 

36, 1 79, 177,34, 50,34 

:uem 

158 

2259 

DATA 

167,49,50,48,0,245 

treni 

1 1 1 

2265 

DATA 

8,1 40,0,1 58,40,1 94 

: rem 

98 

2271 

DATA 

40,52,53,41 , 170, 50 

: rem 

87 

2277 

DATA 

53,54,172,1 94,40,52 

; rem 

1 56 

2283 

DATA 

54,41 , 1 71 , 56, 49, 50 

t rem 

105 

2289 

DATA 

41 ,58,1 56,0,62,9 

t rem 

10 

2295 

DATA 

150,0,153,34,147,17 

treni 

1 46 

2301 

DATA 

17,17, 32,32,32,32 

trem 

32 

2307 

DATA 

78,79,87, 32, 76, 79 

trem 

82 

231 3 

DATA 

67,65,84,69,68,32 

: rem 

69 

231 9 

DATA 

65,84,58,34,1 94,40 

; rem 

1 1 4 

2325 

DATA 

49,57, 51 ,41 ,1 70,50 

treni 

99 

2331 

DATA 

53,54,1 72,194,40,49 

treni 

1 53 

2337 

DATA 

57,52,41 , 34,45, 34 

; rem 

52 

2343 

DATA 

194,40,49,55,52,41 

treni 

103 

2349 

DATA 

170,50,53,54,172,194 

treni 

206 

2355 

DATA 

40,49,55, 53, 41 , 34 

trem 

52 

2361 

DATA 

17,17,17,17,0,128 

treni 

45 

2367 

DATA 

9,1 60, 0,78,36, 1 78 

trem 

64 

2373 

DATA 

199,40,51 ,52,41 ,170 

trem 

150 

2379 

DATA 

34,70,65,77,69,34 

trem 

80 

2385 

DATA 

170,1 99,40,51 ,52,41 

trem 

1 53 

2391 

DATA 

58,80,36, 1 78,78, 36 

trem 

123 

2397 

DATA 

170,34, 91 ,44,66,65 

trem 

1 1 5 

2403 

DATA 

44,69,65,93,34,58 

trem 

65 

2409 

DATA 

90,83, 36, 178, 34,32 

t rem 

lì 0 

241 5 

DATA 

32,79,32,32,33,89 

trem 

66 

2421 

DATA 

83,40,54,56,48,41 

: rem 

51 

2427 

DATA 

34,170,80,36,0,1 95 

trem 

ì 00 

2433 

DATA 

9,170,0,90,86,36 

trem 

3 

2439 

DATA 

178,34,32,32,79,82 

trem 

11 5 

2445 

DATA 

32,83, 89, 83, 40, 54 

trem 

62 

2451 

DATA 

56,51 ,41 , 34,1 70,78 

: rem 

102 

2457 

DATA 

36,58,84,83,36,1 78 

trem 

126 

2463 

DATA 

34,84,85,82,66,79 

trem 

75 

2469 

DATA 

83,65,86,69,34, 1 70 

trem 

125 

24 7 5 

DATA 

8 0,36,58,84,86,36 

t rem 

73 

2481 

DATA 

178,34,84,85,32,66 

: rem 

123 

2487 

DATA 

79,86,69,32,73,70 

trem 

83 

2493 

DATA 

89,34,1 70,78,36,0 

; rem 

64 

2499 

DATA 

239,9,1 80,0,1 53,34 

t rem 

1 1 0 

2505 

DATA 

32,32,84,79,32,83 

: rem 

56 

251 1 

DATA 

65,86,69,58,32,34 

trem 

64 

251 7 

DATA 

84,83,36, 58,1 53,34 

; rem 

1 1 4 

2523 

DATA 

32,32,163,163,163,163 

: rem 

244 

2529 

DATA 

1 63,163,163,34,58, 1 53 

t rem 

3 

2535 

DATA 

44,90,83,36,34,1 7 

t rem 

57 

2541 

DATA 

17,0,31 ,10,190,0 

; r em 

233 

2547 

DATA 

1 53, 34, 32,32, 84,79 

; r era 

1 1 0 

2553 

DATA 

32,86,69,82,73,70 

: rem 

66 

2559 

DATA 

89,58,32,34,34,86 

: rem 

79 

2565 

DATA 

36,58,1 53,34,32,32 

t rem 

104 

2571 

DATA 

163,163,163,163,163,163 

; rem 

97 

2577 

DATA 

163,163,1 63,34,58,1 53 

t rem 

6 

2583 

DATA 

44,90,86,36,34,1 7 

trem 

63 

2589 

DATA 

17,0,88,10,200,0 

trem 

249 

2595 

DATA 

1 53,34, 32,32,84,79 

t rem 

113 

2 601 

DATA 

32,76,79,65,68,58 

trem 

71 

2607 

DATA 

32,76,79,65,68,32 

: rem 

69 

26)3 

DATA 

40,84,85,82,66,79 

: rem 

69 

261 9 

DATA 

32,78,79, 84, 32;78 

trem 

76 

2625 

data 

69,67,69,83,83,65 

trem 

81 

2631 

DATA 

82,89,41 , 34,58,1 53 

trem 

ìli 

2637 

DATA 

34,32,32,1 63,1 63,1 63 

trem 

199 

2643 

DATA 

163,163,163,163,0,0 

trem 

141 

2649 

DATA 

0,56,1 65,45,1 33,90 

trem 

107 

2655 

DATA 

233,1 30,1 33,95,165,46 

trem 

255 

2661 

DATA 

13 3, 91 ,233,2,133,96 

trem 

1 50 


SUPERU5MMODORÉ® 3/Bfi . 13 




2667 

DATA 

165,171 ,208,6,169,0 

t rem 

160 

2673 

DATA 

1 62,208,208,4, 165,55 

: rem 

207 

2679 

DATA 

166,56,1 33, 80,1 33, 1 74 

: rem 

16 

2685 

DATA 

1 34,89,1 34,175,32, 1 91 

: rem 

9 

2691 

DATA 

163,230,89,165,88,166 

: rem 

17 

2697 

DATA 

69, 133,1 93, 1 34, 1 94,1 72 

: rem 

67 

2703 

DATA 

0,3,140,166,2,172 

: rem 

35 

2709 

DATA 

1 ,3,140,167,2,141 

srem 

39 

2715 

DATA 

0,3,142,1,3,164 

srem 

190 

2721 

DATA 

1 71 ,240,4,1 33,55,1 34 

: rem 

190 

2727 

DATA 

56, 162, 2 55, 32, 142, 251 

: rem 

252 

2733 

DATA 

32,219,252,32,219,252 

: rem 

249 

2739 

DATA 

32,209,252,176,75,160 

s rem 

5 

2745 

DATA 

0,177,172,201 ,190,208 

s rem 

248 

2751 

DATA 

240,232,169,32,224,6 

: rem 

197 

2757 

DATA 

240, 1 3,224,7,203, 2 

srem 

96 

2763 

DATA 

169,157,224,1 1 ,208,5 

s rem 

206 

2769 

DATA 

169,189,44,169,162,145 

: rem 

75 

2775 

DATA 

172,200,24,177,172,101 

srem 

40 

2781 

DATA 

193,145,172,8,200,177 

t rem 

2 

2787 

DATA 

172,201 ,160,240,249,40 

1 1 em 

43 

2793 

DATA 

101,194,145,172,224,4 

srem 

251 

2799 

DATA 

176,188,157,170,2,232 

: rem 

14 

2005 

DATA 

136,177,172,157,160,2 

s rem 

6 

2811 

DATA 

232,169,76,157,166,2 

srem 

210 

2817 

DATA 

208,170,96,32,121 ,0 

s rem 

146 

2823 

DATA 

168,32,115,0,192,148 

; rem 

201 

2829 

DATA 

208,8,190,104,0,208 

: rem 

150 

2835 

DATA 

10,1 08,166,2,1 92,149 

: rem 

203 

2 841 

DATA 

200,249, 190,31 ,0,162 

s rem 

1 97 

2847 

DATA 

128,1 08, 166,2, 1 69,0 

: rem 

1 58 

2053 

DATA 

^ 33, 1 0,32,21 2,225,1 69 

s rem 

243 

2859 

DATA 

0, 32,21 3,255,1 76, 56 

ì rem 

158 

2865 

DATA 

162,209, 142,1 65, 3, 202 

ì rem 

249 

2871 

DATA 

1 42,1 67,3,169,96,141 

;rem 

21 3 

2877 

DATA 

209,3,32,01 ,3,8 

: rem 

21 3 

2883 

DATA 

1 69, 1 45,32,21 0,255,32 

srem 

254 

2869 

DATA 

216,245,40,208,0,32 

:rem 

160 

2895 

DATA 

209,252,144,3,76,141 

; rem 

209 

2901 

DATA 

225,162,28,76,55,164 

srem 

208 

2907 

DATA 

32,14,226,32,138,173 

srem 

200 

2913 

DATA 

32,247,183,165,20,166 

srem 

254 

2919 

DATA 

21 ,96,76,249, 224, 1 69 

:rem 

225 

2925 

DATA 

188,190,200,160,1 ,32 

srem 

194 

2931 

DATA 

189,255,169,1 ,170,160 

srem 

IT 

2937 

DATA 

32,186,255,134, 171,32 

srem 

1 

2943 

DATA 

121 ,0,201 ,34,208,32 

srem 

133 

2949 

DATA 

1 36,230, 1 22, 177,1 22, 240 

srem 

92 

2955 

DATA 

4,201 ,34,208,9,198 

Stein 

109 

2961 

DATA 

171 ,165,1 71 ,208,240,169 

srem 

102 

2967 

DATA 

32,190,199,1,232,224 

srem 

208 

2973 

DATA 

17,1 44,242,32,1 21 ,0 

s rem 

141 

2979 

DATA 

240,86,1 69,34,32,255 

srem 

221 

2985 

DATA 

1 74/240,79, 1 90,87,0 

srem 

169 

2991 

DATA 

133,78,1 34,79,190,87 

: rem 

226 

2997 

DATA 

0,1 33, 80, 134, 81 ,190 

srem 

155 

3003 

DATA 

10,1 ,176,230,162,9 

itera 

83 

3009 

DATA 

190,237,0,157,44,3 

;rem 

96 

301 5 

DATA 

202,16,247,162,44,160 

: r em 

239 

3021 

DATA 

3,134,193,132,194,162 

i rem 

241 

3027 

DATA 

60,1 34, 174,1 32,175,70 

srem 

24 6 


3033 

DATA 

157,32,237,245,8,32 

srem 

149 

3039 

DATA 

21 ,253,6,157, 40,176 

srem 

151 

3045 

DATA 

131 ,169,16, 133,1 83,32 

: rem 

246 

3051 

DATA 

147,246,190,19,1,96 

: rem 

155 

3057 

DATA 

46,3,165,1,9,48 

s rem 

212 

3063 

DATA 

133,139,208,27,160,3 

s rem 

195 

3069 

DATA 

185,43,0,153,78,0 

l rem 

53 

3075 

DATA 

136,16,247,48,183,230 

t rem 

0 

3081 

DATA 

78,208,2,230,79,165 

s rem 

158 

3087 

DATA 

78,197,80,165,79,229 

: rem 

233 

3093 

DATA 

81,96,88,162,0,160 

s rem 

109 

3099 

DATA 

0,132,192,173,17,208 

: rem 

202 

3105 

DATA 

41,239,141 ,17,208,165 

: rem 

246 

3111 

DATA 

1,133,139,41 ,254,133 

; rem 

184 

3117 

DATA 

1 ,202,208,253,136,208 

: rem 

239 

3123 

DATA 

250,120,132,83,169,2 

; rem 

188 

3129 

DATA 

1 90,1 38,1,1 98,83,208 

netti 

211 

3135 

DATA 

247,169,9,133,83,165 

srem 

214 

3141 

DATA 

83,190,138,1,198,83 

: rem 

150 

3147 

DATA 

208,247,165,78,190,138 

s rem 

61 

3153 

DATA 

1,165,79,190,141 ,1 

srem 

96 

3159 

DATA 

1 65,80,190,1 41 , 1 ,1 65 

srem 

201 

3165 

DATA 

81 ,190,141,1 ,162,4 

s rem 

92 

3171 

DATA 

1 90,1 34,1,132,171 ,177 

s rem 

243 

3177 

DATA 

78,190,146,1 ,190,4 

s rem 

107 

3183 

DATA 

1 , 144, 246, 234,165, 171 

s rem 

249 

3189 

DATA 

190,146,1,190,141 ,1 

: rem 

146 

3195 

data 

140,160,2,32,147,252 

: rem 

192 

3201 

DATA 

165,139,9,48,133,1 

; rem 

98 

3207 

DATA 

133,192,96,202,208,253 

s rem 

44 

321 3 

DATA 

96,162,3,44,162,5 

srem 

48 

3219 

DATA 

190,134,1,133,189,24 

srem 

199 

3225 

DATA 

101,171 ,133,171,169,8 

s rem 

245 

3231 

DATA 

1 33,164,190,1 90,1 ,166 

: rem 

243 

3237 

DATA 

163,202,208,253,190,190 





s rem 

91 

3243 

DATA 

1,70,189,162,13,144 

s rem 

146 

3249 

DATA 

2,162,41 ,134,163,198 

s r em 

204 

3255 

DATA 

164,240,17,162,9,190 

: rem 

202 

3261 

DATA 

1 34,1 ,234,240,223,165 

: rem 

237 

3267 

DATA 

1 ,73,8,133,1 ,238 

: rem 

0 

3273 

DATA 

32, 208,96, 32,32, 32 

s rem 

98 

3279 

DATA 

32,32,32,32,32,32 

s rem 

41 

3285 

DATA 

32,32,32,32,32,32 

: rem 

30 

3291 

DATA 

32, 173,1 7, 208,41 ,239 

: rem 

202 

3297 

DATA 

1 41 ,17,208,32,21 ,253 

: rem 

197 

3303 

DATA 

200,1 32,192,169, 54,1 33 

: rem 

35 

3309 

DATA 

1,202,208,253,136,208 

srem 

24 2 

331 5 

DATA 

250, 1 20, 169,248,1 41 ,6 

srem 

24 6 

3321 

DATA 

221 , 32,228,3,102,1 89 

srem 

109 

3327 

DATA 

169,2,197,189,208,245 

srem 

1 5 

3333 

DATA 

133,1 23,160,9, 32,212 

ì rem 

IBS 

3339 

DATA 

3,201 ,2,240,249,196 

s rem 

149 

3345 

DATA 

109,208,230,32,212,3 

srem 

195 

3351 

DATA 

136,208,246,133,172,32 

: rem 

40 

3357 

DATA 

212,3,1 33,1 73,32,21 2 

: rem 

1 80 

3363 

DATA 

3,1 33,1 74,32,21 2,3 

i rem 

88 

3369 

DATA 

1 33,1 75,1 32,171 ,32,21 2 

s rem 

40 

3375 

DATA 

3,145,172,36,16,24 

: rem 

101 

3381 

DATA 

101 ,171 ,1 33,171 ,32,21 9 

srem 

33 

3387 

DATA 

252,32,209,252, 144,236 

s rem 

49 

3393 

DATA 

32,21 2, 3, 1 40,160,2 

s rem 

83 

3399 

DATA 

32,147,252,165,139,133 

: rem 

56 

3405 

DATA 

1 ,88,1 33,1 92,32,170 

s rem 

147 

341 1 

DATA 

245,134,45,132,46,165 

s rem 

247 

341 7 

DATA 

1 89, 197,1 71 , 76,1 54,225 

srem 

65 

3423 

DATA 

169,8,133,163,32,220 

s rem 

204 

3429 

DATA 

3,1 02, 1 B9,l 98, 163,200 

: rem 

6 

3435 

DATA 

247,165,189,96,169,16 

s rem 

22 

3441 

DATA 

44,1 3,220,240, 251 ,173 

: rem 

235 

3447 

DATA 

1 3,221 , 142,7,221 ,72 

srem 

141 

3453 

DATA 

1 69,25,1 41 ,1 5,221 ,1 04 

s rem 

242 

3459 

DATA 

74,74,96 

: rem 

140 
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“Newsletter Editor" (NED) ara, 
in origine, un semplice progetto 
di programmazione per ottenere 
un risultato molto preciso. Lo 
scopo era di poter leggere qual* 
siasi file di testo registrato su 
disco, scritto mediante un qual- 
siasi word procesaor senza uti- 
lizzare il programma di tratta- 
mento di testi da cui II teato era 
stato in origine generato. 


I ! mio compito come vicesegretario dei 
Commodore Computer Club della 
mia città consiste nello stampare gli arti- 
coli mensili (provenienti da autori diver- 
si) sulla mia stampante Dynax DX15, 
in modo che il segretario disponga delle 
copie per la compassione definitiva. Al- 
Tintelo sembrava un compito di poco 
conto, quindi accettai il lavoro nel pieno 
delle mie facoltà mentali e con Tinge nuT 
là dei neofiti. 

Scoprii ben presto per quale ragione mi 
era stato chiesto di ricoprire questo ruo- 
lo Pensavo fosse dovuto al fatto ài pos 
sedere la miglior stampante del club. 
Errato, Ho ottenuto 11 lavoro perché 
possedevo II maggior numero di prò 
grammi di trattamento testi. 

Ora, ogni mese, ricevo articoli su disco, 
scritti tramite fino a sei word processor 
diversi. Non posso chiedere a tutti gli 
autori di utilizzare II “Qutck Brown Fox' 1 
solo perché è il mio preferito: quindi, 
per legittima difesa, ho scritto NED. 

Obiettivo del programma 

“Newsletter Editor" è stato progettato 
come strumento per redattori di artìco- 
li, ma chiunque abbia bisogno dì leggere 
informazioni contenute in file su disco 
potrà trovarlo utile, Il programma non 
consente di correggere testi, ma piutto- 
sto di estrarli da disco, mostrarli sullo 
schermo e stamparli su carta. Possono 
essere ‘‘catturati" testi scritti con gli ot 
to word processor più diffusi La figura 
1 rappresenta un’uscita su schermo del 
menu .principale per la versione per 
C64, E ciò che vedrete apparire sullo 
schermo mandando in esecuzione il pro- 
gramma, NED funzionerà sul C64 e sul 


VIC 20 con espansione aggiuntiva da 
SK RAM. 

Esaminando i vari word processor sui 
mercato, ho scoperto che tutti registra- 
no i loro file dì testo su disco in uno di 
questi tre formati: SEQuenziale, Utente 
fin inglese USeR, abbreviato In U$R) o 
PRoGramma (PRG). 

All'Interno di ciascuno dì questi tre for 
mati il testo può essere registrato in una 
qualsiasi delle tre serie di codici: PET 
ASCII, ASCII o Codice dì Schermo. Per 
produrre un lettore dì testi veramente 
universale tutte le opzioni di registrazio- 
ne vanno prese in considerazione. Dal 
momento che non pretendo voi sappia- 
te che i testi ottenuti con QBE vengono 
registrati come file di programma in co- 
dice ASCII a 7 bit o che Word Manager 


produce file d'utente in codice PET 
ASCII, ecc., ho etichettato le voci del 
menu principale con gli stessi nomi dei 
diversi word processor. Ciò vi libererà 
dal peso della maggior parte del lavoro 
di interpretazione. 

Chi può utilizzare il 
programma? 

NED è stato progettato in base all'Ipo- 
tesi che voi non possediate tutti I word 
processor che Viano mai stati realizzati. 
Presumo anche che riceviate del mate- 
riale in un formato che non siete in gra- 
do di leggere, a meno che l’autore utiliz- 
zi lo stesso word processor che utilizza- 
te voi. Si presume anche che disponiate 
di una stampante ad interfaccia paralle- 
la o di una stampante VIC. 
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Come osare il programma. 


Caricate (LO AD) e mandate in esecu- 
zione (RUN) “Newsletter Editor “. Il me- 
nu principale dispone di tredici voci di- 
verse. 

Le prime nove vi consentono di sceglie- 
re con che “tipo* di file di testo lavora- 
re, La opzione contraddistinta dal nu- 
mero 10 vi permetterà di uscire dal prò 
gramma ed iniziare a listare NED sullo 
schermo. La LI cambierà il colore del 
cursore. Le opzioni 12 e 13 sono dispo 
ni bili solo per ìl C64 e non appariranno 
pertanto per gli utenti di V1C 20 Cam- 
biano i colori della cornice e dello scher- 
mo. 

Inserite il disco contenente 11 file di testo 
da leggere nella periferica contraddisti- 
ta dal numero S (drive 0} e scegliete 
una delle opzioni da 1 a 9, in modo che 
corrisponda al tipo del file. Il “tipo" ap- 
parirà nell’angolo superiore sinistro. La 
scritta “Premi i o u” vi ricorda che potè 
te interrompere. In qualsiasi momento, 
l'uscita del testo o uscire dall'opzione e 
ritornare al menu principale 
La scritta “Vuoi stampare il testo? s/ 
n/u* vi offre tre possibilità. Risponden- 
do “u" si esce dall'opzione e si ritorna 
ai menu principale; V invia 11 testo sia 
allo schermo che alla stampante; “n" si 
limiterà a visualizzare il testo sullo 
schermo. 

Se scegliete “s", la domanda successiva 
vi chiederà di specificare “Stampante 
CBM s/n™. Rispondete “s" t se dispone- 
te di una stampante VJC 1525 o se l'in- 
terfaccia della vostra stampante con- 
verte il codice PET ASCII in ASCII o 
se l'interfaccia emula la 1525. La mag 
gior parie delle stampanti a matrice di 
punti funzionerà rispondendo V\ Pro- 
vate sempre ad usare l'opzione "s", Es- 
sa visualizzerà il testo nel formato di 
schermo opportuno. Se il testo visualiz 
zato risulta invertito (il mAlUSCOLO è 
mlNUSCOLQ, e viceversa) potete fare 
due cose per correggere il difetto. 

11 metodo migliore richiede un'attenta 
lettura del manuale della vostra stam- 
pante, o dell' interfacci a, per stabilire 
quale interruttore controlla l'opzione “7 
bit o 8 bit". Il cambiamento dello stato 
di questo interruttore risolverà H proble- 
ma. L'altro metodo consiste nel rìspon 
dere alla domanda con “n*. Ciò opererà 
la conversione, ma il funzionamento 
nota è garantito con qualsiasi stampan- 
te. Inoltre il formato risulterà invertito 
sullo schermo. Cercate di far sì che sia 
la stampante o l'interfaccia ad operare 
la conversione di codice al vostro posto. 
A questo punto il programma richiede 
Li nome del file. Digitatelo esattamente 
come appare nella "directory" del di- 


sco, La sola eccezione è rappresentata 
dai file di testo prodotti dai word pro- 
cessor Quick Brown Fox. Invertite il for- 
mato, Generalmente ciò significa dover 
inserire il nome del file in formato minu 
scolo, anche se la “directory* lo mostra 
in maiuscolo. Se tutto funziona, lo 
schermo verrà cancellato e vedrete un 
cursore lampeggiante apparire nelEan- 
golo superiore sinistro dello schermo. Il 
testo com incera a riempire lo schermo, 
un carattere alla volta. Se avete scelto 
di inviarlo anche alla stampante, comin- 
cerà a stampare il testo una riga per 
volta. L'operazione proseguirà fino a 
che verrà raggiunta Y etichetta di fine 
del file [End Of File, EOF), o premiate 
•V o V. Se sì incorre in un errore 
dovuto alla registrazione su disco, lo 
Stato dell'unità dischi apparirà sullo 
schermo, comunicandovi quale sia il 
problema, e l'esecuzione del programa 
verrà interrotta. 

Testo formattato? 

Molti word processor incorporano dei 
codici di formattazione alFinterno dei 
rispettivi testi. Non volevo proprio che 
questi codici apparissero sullo schermo 
o sull'uscita della stampante, quindi 
NED “pulirà” alcuni “tipi* di file da que 
sti codici indesiderati. In particolare, 
QBF e TOTL.TEXT usano parecchi co- 
dici di formattazione, ma nessuno di essi 
verrà visualizzato. Tutto ciò verrà det 
tagliatamente esaminato in seguito. Po- 
tete controllare alcuni aspetti del forma- 
to di stampa. Potete fissare il margine 
destro. Se il formato del vostro articolo 
è a 40 colonne, ad esempio, potete 
stampare il testo con un margine destro 
in 40. Le parole non verranno spezzate. 
Solo parole intere verranno stampate 
su ciascuna riga. Non viene effettuata 
alcuna giustificazione del margine de- 
stro, ma può essere implementata, dal 
momento che la maggior parte del codi- 
ce necessario è già disponibile 
Potrebbe essere un’ottima idea fornire 
ai vostri autori una copia di NED, in 
modo che possano leggere con esso i 
loro file di testo e vederne l’aspetto prl 
ma di presentar veli. In generale, I file 
di testo andrebbero scritti senza codici 
di formattazione incorporati. E meglio 
che Tunico carattere non di testo ìncor 
porato sia rappresentato da un RE- 
TURN. Approfondiremo L'argomento in 
seguito. 

Note programmati ve 
« descrizione 

NED è scritto in linguaggio BASIC. Uno 
sguardo al listato vi permetterà di vede- 
re che il programma è composto da 9 
moduli principali. Dal momento che esi- 
stono parecchie combinazioni possibili 
di tipi di fìle r i sol top rog ramni i di con- 
versione vengono gestiti in uno dei quat- 
tro moduli seguenti: QBF. Word Maria 
ger (WH), Speed Script e Lettore di file 
SEQuenziali. 


Ciascuno di questi moduli svolge compi- 
ti simili, ma lavora su file di struttura dif- 
ferente. 

Un grafo del programma 

Indipendentemente da quale tipo di file 
di testo debba èssere letto, il grafo di 
flusso del programma è all’ incirca lo 
stesso, con variazioni di minor conto. 
Dopo che i valori delle variabili control- 
late dall'olente sono stati inseriti NED 
compie un salto condizionato al modulo 
che gestisce il tipo di file in questione. 
Un file viene aperto in lettura sull’unità 
dischi, utilizzando il nome del file indica- 
to. Viene controllato lo stato della peri- 
ferica e, se il nome del file richiesto è 
stato trovato, il programma prosegue. 
Se sì verifica un problema di qualsiasi 
tipo con il canale dei dischi, lo stato 
della periferica viene visualizzato sullo 
schermo per un paio di secondi e quindi 
riapparirà il secondo menu, in modo 
possiate ricominciare dall'inizio. 

Se lo stato della periferica è corretto, il 
testo viene letto utilizzando una istruzio- 
ne GET # . E vero, questa istruzione è 
piuttosto lenta, ma permette l'esame 
dei singoli caratteri. La conversione da 
Codice dì Schermo o ASCII viene ope- 
rata ed il carattere viene riesaminato 
(in diversi moduli) per stabilire se costi- 
tuisce parte di un codice di formattazio- 
ne indesiderato. Se è cosi, il codice vie- 
ne scartato o lo si manipola. 1 caratteri 
vengono quindi inviali ad un sottopro- 
gramma, che stabilisce se il lesto deve 
essere solo visualizzato o anche stampa 
to. Se deve essere stampato su di una 
stampante ASCII {“n"), viene converti- 
to in codice ASCII. Il testo da stampare 
confluisce quindi in una stringa (PSt) e 
conservato fino a che si riceve il caratte- 
re CHB$(13) (RETURN) o la lunghezza 
della stringa raggiunge II margine de- 
stro. Quando la seconda condizione è 
verificata si esamina da destra a sinistra 
la variabile PS$ fino a che viene indivi 
duato uno spazio vuoto (32). Quando 
un carattere avente codice di schermo 
32 viene individuato tutto ij testo alla 
sua sinistra viene stampato. La parte di 
testo alla destra viene memorizzata nel 
la variabile PS$ ed il processo di eostru 
zione della riga di stampa riprende. In 
questo modo il testo viene stampato 
senza spezzare le parole. Potete fissare 
Il margine destro In riga 1 (RM=??). Se 
si incontra un RETURN prima del com- 
pleto riempimento di PS$, il contenuto 
della variabile viene stampato nel suo 
formato corrente. 

Dopo che un carattere è stato inviato 
al sottoprogramma di stampa la tastiera 
viene esaminata per verificare se siano 
stati premuti 1 tasti T o “u". In caso 
contrario viene esaminato lo stato della 
periferica per controllare se è verificata 
la condizione di fine del file (End Of File, 
EOF), Se si incontra il segnale corri- 
spondente. o se è stato premuto il tasto 
"u". il controllo viene trasferito al mo- 
dulo di gestione dello stato del disco 
(Disk Status Module), dove lo stato vie- 
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ne lètto dalla periferica e visualizzato 
sullo schermo. Tutti i file aperti vengo- 
no chiusi e ricompare il menu principa- 
le. 

Particolari 

Non esiste un lettore di file realmente 
* universale”. L’obiettivo di NED è limi- 
tato ai tipi di word processor piu diffusi. 
Se vi capita di avere a che (are con un 
word processor che non è elencato nel 
menu principale* ci sono buone probabi- 
lità di recuperare i! testo scritto con es* 
so* grazie ad un semplice lavoro investi- 
gativo, Innanzi tutto guardate la M direc- 
tory* e scoprite in che formato il file è 
stato registrato. NED gestisce i formati 
PRG* USR e SEQ. Una volta che cono- 
scete il tipo del file, scegliete la voce 
del menu che opera su quel tipo, II word 
processor “Quìck Bfown Fox" (QBF) 
produce file PRG In codice ASCII. 
Word Manager file d'utente (USR) in 
codice PET ASCII, SpeedScript file 
PRG in Codice di Schermo. Gli altri 
word processor utilizzano file SEQuen- 
ziali in codice PET ASCII. Provate a 
leggere file di testo creati con altri word 
processor con le opzioni che gestiscono 
la struttura del file. Ottenete effettiva 
mente qualcosa. Esaminiamo ora eia 
scuno del quattro moduli principali, 

Quick Brown Fox 

Il word processor QBE ha bisogno di un 
breve sattoprogramma che per gli altri 
word processor risulta superfluo. Quan- 
do indicate il nome di un file esso deve 
venire convertito in codice ASCII vero 
e proprio dal sottoprogramma che Inizia 
m riga 380. I codici di formattazione 
incorporati in QBF iniziano tutti con li 
simbolo # . I caratteri in ingresso ven- 
gono esaminati dal sotto programma 
che inizia in riga 270* Se si incontra un 
simbolo # , NED compie un salto condi 
zumato a riga 470 per cominciare ad 
esaminare i caratteri seguenti. Alcuni 
compiti minori del processo di formatta* 
zione vengono svolti in queste righe. Se 
viene trovato un codice # p (nuovo pa- 
ragrafo), vengono inviati al sottopro- 
gramma di stampa una istruzione RE- 
TURN e quattro spazi bianchi* simulan- 
do* così, gli effetti del codice. Se si trova 
# f (=form feed, nuova pagina)* le paro- 
le “Nuova Pagina" vengono visualizzate 
sullo schermo per mostrare il cambio di 
pagina. Tutti gli altri codici vengono 
estrapolati, in modo che solo il testo 
venga stampato. 

Word Manager 

Questo word processor rappresenta 
“1‘ anticonformista" del gruppo. WM è il 
word processor a 80 colonne fornito 
con la scheda di interfaccia a 80 colon 
ne Data20 {Protesto, ecc.). 11 testo vie- 
ne memorizzato sotto forma di file 
d’utente (USR) In codice PET ASCII, in 
formato formattato. Tutto ciò significa 
che quando leggete un file prodotto da 
WM esso uscirà sulla stampante esatta- 
mente nel formato in cui era stato Inseri- 
to tramite WM. Nessuna formattazione 


viene eseguita da NED. Questo modulo 
non utilizza il sottoprogramma di stam- 
pa di riga 20, ma sfrutta un sottopro- 
gramrrta personale che inizia in riga 
1210 Non potete fissare II margine de- 
stro per un file prodotto da WM, 

SpeedScript 

SpeedScript è comparso per la prima 
volta lo scorso anno sulle pagine di SU 
PERCOMMODORE ed ha subito otte 
mito un ottimo successo di pubblico. 
L'ho incluso in questo programma pro- 
prio per la sua diffusione, SpeedScripI 
memorizza i suoi testi sotto forma dì file 
PRG in Codice di Schermo, La con ver 
sione da Codice di Schermo a PET 
ASCII viene effettuata alle righe da 
2200 a 2270. 1 primi 48 caratteri del 
file vengono scartati, vedi riga 2110 in 
cui la variabile XX è uguale a 48 Ho 
inserito questo valore in una variabile, 
in modo che possiate cambiarlo. Se per- 
dete parte del testo od ottenete caratte- 
ri spuri! al Pini zio, regolate XX dì conse- 
guenza in riga 2050. 

File SEQuenziali 

Qui Inizia il divertimento. Preparate del 
l'Aspirina. La maggior parte dei word 
processor memorizza I testi sotto forma 
di file SEQuenzìali, quindi il modulo di 
gestione dei file SEQ leggerà QUAL 
COSA da qualsiasi file SEQ (database, 
spreadsheet, ecc}. 1 problemi iniziano 
quando si ha a che fare con qualcosa 
chiamato “Delimitatole di file" (File De- 
limiterà Si tratta di un carattere inserito 
nel testo per limitare la lunghezza della 
registrazione (generalmente a circa 254 
caratteri). Il delimìtatore di file più usa 
to é il simbolo “ (doppi apici), ma anche 
CHR$(13) è molto diffuso NED estra- 
polerà questi caratteri di delimitazione 
indesiderati, ma tutto ciò rappresenta 
un procedimento piuttosto complicato. 
Se viene utilizzato CHR$(13), il simbolo 
di RETURN all’interno del testo sarà 
rappresentato da qualche altro caratte 
re, generalmente una freccia o il simbo 

10 La sezione del programma dalla 
riga 5000 alla 5340 stabilisce quale sìa 

11 delimitatore di file ed il sìmbolo di 
RETURN per ciascuno dei differenti 
word processor. La variabile FL ha que- 
sto scopo. La riga 3080 controlla la ri- 
correnza del de li mi latore e lo scarta. 

TOTL. TEXT 

Orca la metà delie istruzioni del modulo 
SEQ si occupa dei codici di formattazio- 
ne TT, estrapolandoli o operando su dì 
essi grosso modo come per QBF. I codi- 
ci di formattazione TT iniziano tutti con 
il doppio simbolo del dollaro; $$, segui 
to da un codice specifico. Ad esempio* 
$$pr è un comando dì '‘nuovo paragra- 
fo"* esattamente come l'istruzione #p 
di QBF. Se viene trovato questo coman- 
do $$pr* il programma compie un salto 
condizionato alla riga 483 del modulo 
di QBF ed esegue una istruzione simula- 
ta di “nuovo paragrafo'". Il comando 
$ DOL$$sk (SKip a line, salta una riga) 
viene interpretato come un comando di 


M a capo". Tutti gli altri comandi $$ ven- 
gono estrapolati. La formattazione dì 
TT viene effettuata dalle righe da 3170 
a 3290. Il simbolo $ viene rilevato ed 
esaminato in riga 3160. Se 11 carattere 
successivo è un “$"* si presume che si 
tratti di un codice di formattazione di 
TT e si opera su di esso. 

Paper Clip 

l file di testo di Paper Clip possono esse- 
re registrati come file SEQuenziali me 
diante l’opzione CTRL Z o come file 
PRG in Codice di Schermo tramite l'op- 
zione CTRL $. NED si occupa di en- 
trambe, ma preferisce la versione 
CTRL Z. La versione CTRL S utilizza 
il modulo di SpeedScript, mentre la 
CTRL Z 11 modulo SEQ Non viene ope- 
rata alcuna formattazione* dal momen- 
to che i codici di formattazione non ven 
gono incorporati di frequente. 

WordPro a # 

Questo wordprocessor funziona bene 
con il nostro programma, ma i suoi testi 
verranno stampati con il margine destro 
assegnato dal file, quindi se avete biso- 
gno di articoli a quaranta colonne, di- 
chiaratelo nei testi e, in seguito* iniziali- 
zate NED in maniera opportuna. La 
stessa cosa vale per i testi ottenuti con 
HES* ma fate attenzione a che non vi 
siano inseriti codici di formattazione in- 
corporati oltre al RETURN, altrimenti 
essi appariranno sulla vostra stampan- 
te. 

Easy Script 

La maggior parte dei codici incorporati 
sono concentrati all'inizio del testo* 
quindi evitate di usare codici di format- 
tazione dopo quelli prefissati all'inizio* 
Questa precauzione vi permetterà di ot- 
tenere una copia priva di errori. 

Espedienti programmativi 

Ho utilizzato in NED alcune righe dì 
istruzioni BASIC che potreste essere in- 
teressati ad incorporare in altri pro- 
grammi. Le righe da 9040 a 9080 stabi- 
liscono se 11 programma viene utilizzalo 
da un VIC o da un C64 leggendo Lì 
contenuto della locazione 65532 trami- 
te un’istruzione PEEK. Se il risultato è 
uguale a 34. si sta usando un VIC, men- 
tre se il risultato è 226, si tratta di un 
C64. Se il risultato è differente, si può 
trattare sia di un PET (non so di che 
tipo) o di un VIC/C64 fornito di scheda 
d'interfaccia da 80 colonne, NED è 
compatibile con le schede dì interfaccia 
da 80 colonne. 

Mentre copiate il programma da queste 
pagine, potete registrarlo su disco bat- 
tendo RUN2 e RETURN. Ciò farà sì che 
la versione precedente di NED venga 
cancellata dal disco e rimpiazzata dalla 
nuova. Dal momento che preferisco 
aver copie aggiuntive dei miei program 
mi (Back up}* ho inserito lo stesso sotto- 
programma in riga 4* con un diverso 
nome del file. Il comando FUJN4, in for- 
mato diretto, aggiornerà anche la copia 
aggiuntiva. Controllate molto attenta- 
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mente le prime 5 righe in cerca di even- 
tuali errori, dal momento che un errore 
in una di queste righe può risultare fata- 
le. Il comando RUN6 listerà il program- 
ma sulla stampante. Potete indicare la 
sezione del listato desiderata dopo 
Pist razione “LIST" in riga 7. Mentre sta 
vo scrìvendo ì moduli del programma 
ho usato Popzione del menu contraddi- 
stinta dal valore 10, per listare automa- 
ticamente sullo schermo le righe su cui 
stavo, di volta in volta, lavorando. La 
riga 9400 svolge questa funzione. Le 


righe da 9120 a 9170 stabiliscono quale 
calcolatore viene attualmente utilizzato 
e visualizzano un titolo differente. In ba 
se al fatto che si tratti del VtC o del 
C64. 


Annotazioni conclusive 

NED è abbondantemente commentato 
per vostra comodità, ma la maggior 
parte delle istruzioni di commento 
(REM) andrebbe rimossa o non dovreb- 
be essere copiata. Cancellate tutte le 


istruzioni REM che condividono il nume- 
ro di riga con altre istruzioni BASIC. La 
riga 28 è un esempio di una istruzióne 
REM che andrebbe cancellata. Dò velo- 
cizzerà leggermente il funzionamento 
del programma. Non cancellate le istru- 
zioni di commento che hanno un proprio 
numero dì riga. La riga 8000 costituisce 
un esempio di una istruzione REM che 
dovreste lasciare immutata. 

NED non è veloce. Funziona corretta- 
mente, ma il testo viene letto alPincirca 
alla stessa velocità con cui lo leggete. 


Newsletter Editor 



0 REM" NEWSLETTER EDITOR" Vi *3*7 trem 121 

1 CC$ "CH R$ ( 3 1 ) : RM= 4 0 : GOTO 80 70 trem 138 

2 OPEN! ,3, 7 5, "lO'^tPRINT#! ,"30; EDITOR" 

: r em 131 

3 5AVE"EDTTOR" , 8 ; GGSUB6Q 00 : CLOSEl :END 

treni 67 

4 OPEN! ,8,1 5 r "I0":PRINT#I ,"80; EDITOR BU" 

; r em 28 

5 SAVE"EDITQR BU n , 9 : GOS UB6 0 0 0 : CLOS E 1 t E ND 




; rem 

220 

6 

PRI NT"PRXNT* 4 :CL0SE4 11 : CLOSE4 

: rem 

1 79 

7 

OPEN 4 , 4 f 7 : CMD4 r LIST 

: rem 

24 

S 

3 

: rem 

1 1 4 


2 0 REM " ************************* ******* 

:rem 160 

22 REM " * { 2 SPAZ I } SO ( 2 T } OPROGRA { 3 M ) 

A { SPAZ I }£I { SPAz7 TSTAMPA { 2 SPAZ 1 1 * " 

: rem 127 

2 4 rem " ******************************* 11 




: rem 

164 

26 

! 

: rem 

162 

28 

IFP= .THEn50:REM SOLO SCHERMO 

: rem 

180 

30 

IFP»2THEN38 l REM STAMPANTE CBM-VIC 




: rem 

247 

32 

I FC < NETHEN3 8 : REM STAMPANTE ASCII 




: rem 

21 2 

33 

IFC>1 9lTHENC= (C- 128) : GOTO 3 8 

trèni 

2 50 

34 

EFOHSTHENO (C-NC) :GOTO3 0 

; rem 

247 

36 

IFONRT HENC= (C+NC) 

: rem 

24 

38 

IFC= NATHENI = LEN ( PS$ ) t GOTQ4 6 

: rem 

146 

40 

PS$ = PS$ +CHR? (C) :IELEN(PS$) <RMTHEN50 



t rem 

30 

42 

FORI «RMTOl STEP - 7 

s rem 

224 

44 

IFMIDS (PSS, I f 1) O" "THENPR$* 

MI D$ ( PS $ , T 


, 1 ) +PR3 tNEXTI 

: rem 

706 


46 PRIMTI4.LEFTS {PS$,I> :PS$=PRS : 

PR$="":GO 

TO50 

:rem 

179 

48 PRINT#4,CHR$(C); 

trem 

76 

SO PRINTCHRS {C ) i : RETURN 

: rem 

220 

52 : 


;rem 

161 

1 00 

&gun* ******** A********************* 



: rem 

7 65 

170 

REM" * { 6 SPAZ I}QUICK{ SPAZ ilBRQWN 



( SPAZI } POX{ 7 SPAZ I ) * " 

: rem 

192 

7 20 

££ M H** a****#******************##**»' 



! rem 

167 

130 


treni 

206 

1 40 

OPEN4 , 4,SA:GPEN8,8,8,NB$+" ,P 

,R M 




: rem 

208 

ISO 

OPENl , 8, 1 5:GOSUB6000:IFDSTHEN370 




;rem 

152 

170 

PRINTCH$; 

: rem 

15 

180 

GET#8,A$, A$ 

treni 

246 

190 

GET# 8 , AS : GOS UB 2 70 : CETI $ : I F I $ 

*"r*THEN2 


50 

: rem 

6 

200 

IFIS = w tI M THEN2 40 

: rem 

41 

210 

1FST--THEN1 90 

:rem 

253 

220 

I FST* - 1 2 8 THE Ni 9 0 

: rem 

152 

240 

PRI NT# 4 r PS$ : PS$ = " " : GOSUB6 000 

; GOTO 9 4 1 0 



; rem 

176 

2 50 

GETBS : I FB$ = " "THEN2 50 : REM P ALJS A 




: rem 

235 

260 

GOTO! 90 

: rem 

1 07 

270 

OASC{A$) 

: rem 

1 66 

280 

REMI FC a NATHEN3 80 : REM RET,NUM 




t rem 

11 

290 

IFC*NDT HENGOSUB470 : GOTO 3 50 : REM # 




! rem 

21 0 

300 

IFONQTHENC=NA i GOT03 50 

:rem 

139 

310 

IFONFTHENC-C-NC: GOT03 50 :REM 

,r DA 

M A 


M" 

: rem 

53 

320 

I FC < NETHEN 3 50 : REM NUM 

ì rem 

11 

330 

I FC < NCTHENC=C+NR : GOTO 3 50 

: rem 

253 

340 

C=C+NC t REM "DA M A M" 

: rem 

88 

350 

GOS US 2 8 

: r em 

1 30 

36.0 

NA$ '* t NBS = " " : PN$ = "QUICK BROWN FOX" 



: rem 

43 

3 70 

GO5U860 80 : GOSUB3 80 : GOTO! 4 0 

! rem 

69 

3 80 

REM CONVERSIONE FILENAME 

: rem 

1 T 

390 

»p$ e n " 

: rem 

1 49 

400 

FORN-1 TOLEN (NAS) : T$-MID$ ( NA$ 

,N,1| 




; rem 

133 

41 0 

T= ASC (T$ ) 

; rem 

1 98 

420 

IFT>NFTHENT=T-NC 

: rem 

29 

430 

I FT> NRTHENT=T+ NC 

; rem 

40 

440 

nb$-nb$+chr$ (T) 

; rem 

1 4 

450 

NEXT 

: rem 

21 6 

460 

RETURN 

trem 

7 22 

470 

GET # 8 ji A$ : C = ASC (A$) 

: rem 

1 74 

480 

IFCOl 1 2THEN49Q 

trem 

72 

483 

C»T 3:GOSUB28:FORI=l T04 

trem 

86 

486 

C-32:GOSUB2B:NEXT:RETURN:REM #P 




: rem 

207 
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490 IFC-NLORC^NKQRC=NMTHEN56Q;REM *NLR 

srem 179 

500 IFC=NOORC=NHTHEN56Q:REM #D,T;rem 

510 IFC-NJORC=NGTHEN570:REM #H,C:rem 

520 IFC=NNQRC=NPTHEN570:RBM #U,0:rem 

530 IFC=O06THEN5 70:REM #J :rem 

535 IFC-11 5THENGET# 8, A$,A$:C=. : RETURN: REM 

#S srem 10] 

54 0 IFC-1 02THENPEINRTS"* NUOVA { SPAZ I } PAG 
INA *"RT$ SO. : RETURN :rem 42 

550 RETURN = rem 122 

560 GET # B f A$ , A$ , A$ : C = , i RETURN :rem 
570 C - , s RETURN item 

580 : :rem 


199 

182 

221 

148 


139 
1 00 
21 5 


1 000 rem"****** *************** ********* 


1010 

102 0 

1030 

1040 

1050 

1060 

1070 

1090 


jreci 171 
REM " * i 7 SPAZ I) WORD { SPAZI) MANAGER 
{ 8 SPAZI}* 11 ;rein 149 

REM" ***************************** ™ 

: rem 173 

* : rem 2 54 

PN$ = 11 WORD MANAGER" ^rem 63 

GOSUB6O80 : 0PEN4 , 4 t SAs OPENl ,8,15 

; rem 103 

OPENS ,3,8, NA$ + " ,U , R" ; GOSUB600Q : IFDST 
MENI 0 50 :rem 21 

PRINTCH$f :rem £;* 

FORI-lTOl 5: GET# 8, A$ :NEKTT : rem 57 



2180 GETBS S IFB$ "THEN2 180 t rem 187 

21 90 GOTO 21 20 202 

2200 IFA$-""THEN21 20 :rem 45 

2210 C* ASC ( A$ ) 210 

22 2 0 I FC - NBTHE NC = NA : GOSUB 2 8 : RETURN 

;rem 225 

2230 IFONQTHENRETURN :rem 133 

2240 IFC>NFTHENC=C-NC:G0SUB28: RETURN 

itera 90 

2250 IFC<NCTKENC=C+NR:G0SUB28:RETURN 

; rem 99 

2260 IFC<N£THENGG5UB28 : RETURN : rem 158 

2 2 70 C=C + NC:G0SUB2 8: RETURN : rem 136 

2280 : :rem 6 

3000 rem" *********** ************** a***" 

srem 173 

3010 REM" * LE{ 2 T 1 ORE f SPAZ I ) FI LE ( SF AZ I } 
SEQUENZIALI {SPAZI}*" :rem 169 

3020 REM"***** ******************* *****" 


1100 

GET #8 , A? :C-ASC {A3 ) : IFC 

-1 99THEN1 1 60 



srem 

184 

Ilio 

IFONQTHEN! 1 40 

: rem 

103 

1120 

GOSUB 1 21 Q:GETI$:IFIS=" 

I "THENl 1 70 




: rem 

135 

1130 

1FI$="U W THEN1 160 

s rem 

142 

1140 

IFST=.THEN1 1 00 

: rem 

88 

1 1 60 

PRINT# 4 , PS$ : GOSUBGOOO : 

G0T0941 0 




: rem 

96 

1 1 70 

GETB$ : I FB$ - ” "THENl 1 70 

srem 

1 83 

1 1 80 

GOTOl 1 00 

: rem 

197 

121 0 

IFP-OTHENl 270 

: r em 

9 

1220 

IFP-2THEN1 260:REM VIC 

: rem 

11 


1230 IFC<NETHENPRINT#4,CHRS (C) ; :GQTOl 270 

srem 179 

124 0 I FC > NSTHENPRI NT # 4 , CH R$ { C - NC ) ; : GOTOl 2 



70 

: rem 

130 

1250 

I FC > NRTHENPRI NT # 4 , CHR$ (C+NC) ; sGOTOl 2 


70 

srem 

1 28 

ì 260 

PRINT# 4 ,CHR$ {C ) ; 

:rem 

1 69 

1 270 

PRINTCHR? (C) ; : RETURN 

srem 

65 

1280 

* 

: rem 

5 

2000 

REH »#*************»*i 





: rem 

172 

2010 

REM" * { 7 SPAZ I } SP { 2 

E}D(SPfiZl)SCRl 


FT( 8 SPAZI}*" 

: rem 

165 


2020 rem"** ************** *************” 

: rem 174 

2040 ; é rem 0 

2050 PN$ = "S PEEDSCRI PT" : FL-0 : XX- 4 8 

: r em 28 

2060 PS8 = ,,M :SA=0 :P=0 :GOSUB6080 :rem 202 
2090 OPENl , 8,1 5:OPEN4 , 4,5A:OPEN8, 8, 8,NA$+ 
%P,r" srem T52 

2100 FRI NTCHS ; : GOS UB6 0 00 : 1 FDS THEN 2 060 

: rem 1 ? 


s rem 175 

3030 : :rero 0 

3040 GOSUB6 0 80 : OPENl , 8» 1 5:OPEN4 , 4, SA 

srem 104 

3050 OPEN8,8,8,NAS+".S,R":GOSUB6000slPDST 
HE M 304 0 : rem 27 

3060 PRINTCH$; =rem 64 

3070 GET48, A$ tXFAS-" fi THEN3070 :rem 62 
3080 C-ASC{A$] : I FFL-C = 0THEN3 070 ;rem 9 
3090 GOSUB31 50 : GETI$ ; IFI$ = " I "THEN3 1 30 

i rem 1 4 6 

3100 IFI$="U"THEN31 20 :rem 139 

3110 I FS T- , THEN 3 0 70 :rem 95 

31 20 PRINT# 4 , PS$ : PSS - " " s GGS UB6 0 0 0 : GOT09 4 1 
0 s r em 2 2 4 

3130 GETB8 : IFB$- m,, THEN 31 30 :rem 179 

3140 GOTO 30 70 = rem 203 

3150 IFC- 94THENC= NA : G0T033 1 0 : REM FRECCIA 
VERSO L'ALTO l rem 250 

3155 IFC- 9 5 THENC = - : GOTO 3 31 0 1 REM FRECCIA V 
ERSO SINISTRA rrem 105 

3160 IFC< > 36THEN3300 : REM NON E 1 UN 

: rem 254 

31 70 CETI 8 , A? : I F A$ < > "$ " THENB =C : C- 3 6 * GOSUB 
2 0 : C = B : GOTO 3 3 00 :rem 12 

31 SO TT$ - M 11 ; FORI = 1 TQ2 i GET# 8 , A$ :TT$ =TT$+A$ 
* NE XT :rem 228 

31 90 I FTTS " PR 1 ' THE NC- 1 3 : GOSUB4 8 3 : RETURN 

srem 209 

3 2 00 I FTTS - M NL "ORTT$ = "SK" THE NC - 1 3 : GOTO 3 3 1 
0 : rem 20 

3210 I FTT$ = " RM" ORTT5 -"IN "THEN 3 2 80 

: rem 194 

32 20 I FTT$ - " TB "ORTTS = " S T"THEN3 2 8 0 

;rem 202 

3230 IFTT$ = "PG"ORTT$ = "QC"THEN32 80 


2110 FRINTCHS; : FORIC I TOXX : CETI 8 , A? : NEXTI 

: rem 46 

2120 GET#8, h$ : GOSUB2200 : GETIS t I F 1$ * "I "THE 
N21 80 - rem 144 

2130 IFI$ ffl "U"THEN21 70 ! rem 145 

2140 IFST* -THEN21 20 : rem 92 

2170 PRINT# 4 , PS$ , PS$ : PS$ = " " ; GOSUB6ÙOO : GOT 
09410 srem 215 


: rem 185 

3240 I FLE FT$ { TT$ , 1 } THEN 3 2 80 :rem 29 

32 50 IFTTS-'*TI n THENC=l 3 SGQT0331 0 : rem 144 
3260 IFRIGHTS (TTS , 1 ) "THENGET# 8 , A$ ;GOTO 
3180 : r em 8 S 

3270 RETURN :rem 172 

32Q0 GOSUB 32 90 : GOSUB32 90 :C = * :GOTO33 0Q 

: rem 1 96 


SUPEHCOMMODORt® 3/tó 39 


3290 GET#8,A$; I FA$ <> " { SPAZ I } ”THfiN329G tRET 
URN :rem 61 

3300 C“ASC (A $ ) t GOTQ331 0 trem 13 

3310 GOSUB2B: RETURN :rem 203 

3320 : :rem 2 

5000 rem*** ****** ********************** " 

: r em 175 

5010 REM” * [ 3 SPAZI } HBS { SPAZI } tfR ITER 

l 9 SPAZI] ** : rem 1 91 

5020 reM^*** ********************* *****" 

; rem T77 

5030 PN$- W HES /PAGE [SPAZI] MATE" treni 126 
504 0 FL* 34 : REM IL SEPARATORE DI CAMPO DEL 
FILE E* IL CARATTERE 'DOPPI APICI' 

:rem 102 

5050 GOTÓ3040 trem 202 

5060 ; : rem 5 

5070 rem h ************************ *****" 

: rem 132 

5060 REM” * { 7 SPAZI ] TOTE - TEXT { 11 SPAZI] 
*■ : rem 255 

5090 rem”** *********** ****************“' 

t rem 1 84 

5100 FNg = " TOTL . TEXT " : FL= 1 3 : rem 44 

5110 GOTO3040 trem 199 

5120 : : rem 2 

51 30 rem”*****************************" 

: rem 179 

5140 REM” * { 4 SPAZ I } PARERGLI P { SPAZ I } CGNT 
ROLt SPAZ I } Z { 4 SPAZI }*" : rem 33 

51 50 rem”*****************************" 

: r em 181 

5160 FN$ = " FAFERCLI? (CONTROL Z)":FL=0 

: rem 52 

51 70 GOTO 3 040 ;rem 205 

5180 : trem 3 

51 90 REM* ************************ *****" 

: r em 185 

5200 REM" * { 7 SPAZ I } KAS YSCRlpT f 2 SPAZI} 

{ 3 SPAZI] [ 4 SPAZI]"*" : rem 106 

5210 REM"******** *********************** 




: rem 

178 

5220 

PN$ * "EA5YSCRI PT" i FL* 0 ; GOTO 3 04 0 




srem 

134 

5230 

i 

:rem 

4 

5240 

REM" **** 

: rem 

1 61 

52 50 

REM" M a 
{ SPAZ I } 

SPAZ I ] WORDPRQ{ SPAZ I ] 3+ 
f 3 SPAnTT 4 SPAZI]*" 

: rem 

1 1 5 


5260 rem"*****************************" 

; rem 183 

52 70 PN$ * "WORDPROCSPAZ I } 3 + " : FL= 0 : GOTO 3 04 0 

: r em 47 

5280 i trem 9 

52 90 REM" * * * * * * *********************** » 

: rem l 86 

5300 REM" * { 4 SPAZ I } PAPERCLIP [ SPAZ I } CONT 
ROL tSPAZ I > S { 4 SPAZI ) *" : rem 24 

531 0 rem 11 * ************* ***************" 

; r em 179 

532 0 PN$ = " PAPER GL I P CTRL S" : rem 181 

5330 FL -32 : XSC -4 8 :GOTO 2 060 : rem 205 

5340 : : rem 6 

6000 rem"*****************************" 

* :rero 176 

6010 REM"* ESAME STATO UNITA 1 DISCHI 

(SPAZlT* 11 1 81 

6020 rem"** ************ ***************" 

: rem 178 

6030 : trem 3 

6040 DS» 0 : INPUT# 1 > N * MS$ , T * S :rem 85 


60 4 5 PKINTRT$ ; RN$ ; "NOME DEL FILE : "NA$ t FRI 
NTN;MS$ ;T;S : rem 102 

6050 IFN=,THENRETURN:REM NESSUN PROBLEMA 


CON L 1 UNITA * DISCHI :rem 29 
6065 GLOSSI trem 120 
6070 DS=1 ìRETURNiREM PROBLEMI CON L'UNITA 



1 DISCHI 

trem 

19 

6075 

; 

trem 

T 2 

6060 

PJT [y] IT ******* *********************** 



: rem 

134 

6090 

REM H *{ 6 SPAZI] SCELTA (SPAZI] DEL 

FIL 


E{ 6 SPAZI]*" 

: rem 

28 

6100 

REN"*****#*****#* ********** 

* * * * * 

* *» 



: rem 

177 

6110 

* 

: rem 

2 

61 20 

PRINTCHS ; RN$ ; PN$ : PRI NT ; PRI NTMl ■$ : 

PRIN 


T 

:rem 

243 

6125 

PRINT" I L MARGINE DESTRO E 1 : 

"RM: PRINT 



trem 

143 

6130 

P=] : PRINTRN$ ; M2S : INPUTPS : IFP$ - "N 

"THE 


NP = 0 : GOT06 170 

: rem 

1 04 

61 40 

IFP$- , 'U”THEN91 1 0 

troni 

158 

6150 

PRI NT : PRI NTRN $ ; M 4 $ : I NPUTP$ 

: rem 

2 

61 55 

I FP $ = ”S "THENP - 2 : S A s 7 tGQTQ6 1 70 




; rem 

25 

61 60 

PRINT : PRINTRNS ; M3$ : I NPUTSA 

:tem 

34 

61 70 

PRI NT : PRINTRN$ ; " I NSERI RE IL 

, NOME 

DEL 


FILE {SPAZI] ” : INPUTNA$ 

: rem 

23 

6180 

PRI NT CH 5 ; : RETURN 

troni 

96 

6190 


tram 

10 

80 00 


treni 

2 

8070 

RE M " ********************** ******* 



: rem 

ì 51 


8090 REM”* INIZIALI { 2 2 } AZIONE! SPAZ I } VAR 
I AB ILI! SPAZI"!* " :retn 81 

81 00 REM"***************************** 

{ 2 SPAZI] 80 80 : rem 97 

81 1 0 : : rem 4 

8120 DC*4 :SA- 7 : BC=6 :FC*7 iCC»5 trem 160 
8130 NA=T 3 : NB = 3 1 :NC-32 :ND=35 :NE=65:NF=95 

: r em 51 

61 40 NG- 99 :NH =1 00 : NI» 1 02 t NJ - 1 04 : NK «1 08 

i rem 1 57 

81 50 NL tì 110 :NM= 114 tNN* 111 :NO= 11 6 : NP=* 1 1 7 ;N 
Q=1 22 : rem 138 

61 60 NR- 64 t NS = 9 6 : CLOS E 1 ; CLOSEDC : CLOSE 8 

: rem 1 57 

8170 RN$ — CH R$ ( 1 8 ) : RTS =CH RS ( 73 ) ; REM RVS ON 
E RET trem 105 

81 80 CH$=CHR$ (1 47 ) : REM CLR/HOME trem 2 
8190 Mi $ -"PREMI I PER TERMINARE " + RT$ + "PRE 

MI U PER USCIRE * 11 trem 95 

8200 M 2 $="STAMPA IL TESTO <S/N/U>" 

: rem 38 

8210 M 3 $="INDIRIZZO SECONDARIO DELLA STAM 
PANTE 11 i rem 40 

8220 M 4 $= "STAMPANTE CBM <S/N>" s rem 187 

82 30 M 5 $=RT$+ 1 t FINE(SPAZI]FILE - (SPAZI }PR 

EMI j SPAZ iTUNf SPAZ I } TASTO " : rem Hi 
8240 : trem B 

9000 rem"***************************** 

i rem 1 45 

9010 REM” * { 5 SPAZI ) MENU 1 { SPAZ I } PRINCIPA 
LE E 6 SPAZI]* treni 7 

9020 REM" ***************************** 

: rem 147 

9 0 3 0 ; : r em 6 

9040 IFPEEK ( 65532 J 034 THEN 9070 : REM VIC 

t rem 183 

90 50 POKE3 6 879, 248 : PRINTCHR? (158) :CT=20 

: r em 255 

9060 GOTO9100 :rem 210 


40 sufescommodorE® 3 / as 



90 70 IFPEEK (65532) <>22 6THEN91 0G:REH"C-G4 

:rem 129 

90 80 POKE 5 3 2 8 9 , BC : PO KE 5 3 2 8 1 , FC : REM" COLORI 
C - 6 4 :rem 63 

9090 SA= 0 : P = Q :CT= 64 : BL= 1 6 : SL= T 6 :rem 43 

9100; * ; r em 4 

9H0 PRINTCHRS (14) ;CHR$ (1 44) ;CH$;RN$J 

: r ero 89 

9120 PRI NT 11 NEWSLE [ 2 T} ER{ SPAZ l ] EDITOR " ; 





: rem 

76 

91 30 

IFCT*2 0THENPRINT M ; GOTO 9 1 SO 





: rem 

1 5 

91 40 

PRI NT 


: rem 

91 

91 50 

PRI NTRN$ 

f 

:rem 

91 

91 60 

IFCT= 2 OTHENPRI NT " £ SPAZ I } " 

: REM 1 

SPAZ 


IO 


t rem 

90 

91 70 

PRI NT : P R I NT ; PRT NTCCS ; "DA 

QUALE WORD- 


PROCESSOR" 

: x em 

187 

91 80 

PRTNT" LEGGI IL FILE ?":PRINT 





s rem 

1 98 

9190 

PRTNT"! , 

QU1CK BRGWN FOX" 

: r em 

117 

9200 

PRI NT" 2. 

WORD MANAGER^ 

: rem 

51 

921 0 

PRI NT" 3 « 

SPEEDSCR I PT" 

; rem 

68 

9220 

PRI NT" 4. 

TOTL.TEXT" 

: r em 

182 

9230 

PRI NT" 5. 

PAPER CLIP CTRL 

Z" : rem 

177 

9240 

PRI NT " 6 , 

PAPER CLIP CTRL 

S" ; rem 

172 

9250 

PRI NT" 7 * 

EASYSCRIPT" 

: rem 

13 

9260 

print m b. 

WORDPRO 3+" 

: rem 

1 47 

9270 

PRI NT" 9 * 

HES /PAGE MATE” 

: PRI NT 





: rem 

164 

92 00 

PRINTRN$ 

;"10. FINE PROGRAMMA" 





: rem 

122 

92 90 

PRINTRNS 

; " 1 1 . COLORE CURSORE" 





: r em 

27 

9300 

I FCT* 2 0 THEN9 3 50 : REM V I C 20 :rem 

243 


9310 FRINTRNS;"! 2. COLORE SCHERMO" 

; rem 3 


9320 PRINTRN$;"!3. COLORE CORNICE" 

; reni 247 

9350 PRI NT ; INPUT "QUALE NUMERO " ; A : rem 54 
9355 IFA>! 3THEN91 1 0 :rem 66 

9360 1FA<7THENONAGOT036Q, 1 000,2000,5070,5 



130,5290 

;rem 

1 84 

9370 

IFA> 6THENA=A- 6 

: rem 

1 04 

93 80 

ONAGOT05Ì 90,5240, 5000,9400, 9500, 

94 70 


,9440 

: rem 

146 

9390 

GOTQ9 1 1 0 

: rem 

217 

9400 

LIST2 0- : REM POTETE CAMBIARE IL VALOR 


E NUMERICO 

: rem 

123 

9410 

CLOSE4 :CL0SE8 : CL05E1 ;FRINTM5$; 




: rem 

233 

9420 

GETAO : I FA$ * " "THEN94 2 0 

: rem 

T 93 

94 3 0 

GOTO 9 1 1 0 

;rem 

21 2 

9440 

IFCT0 64THEN91 20: REM CAMBIAMENTO 

COL 


ORI 

: rem 

220 

94 50 

BC=BC+ 1 : IFBC>BLTHENBC=0 

: rem 

1 76 

9460 

PQKR532 80 , BC : GOT09 1 1 0 

: rem 

0 

9470 

IFCT0 64THEN9T 1 0 

: rem 

21 6 

9480 

FC = FC +■ 1 : IFFOSLTHE NFC = 0 

: rem 

21 2 

9490 

POKE53281 , FC; GOT091 1 0 

; rem 

251 

9500 

I FCC>7THENCC=0 

: rem 

122 

9505 

CC=CC+1 

; rem 

120 

9510 

ONCCGOSUB95 30, 9540, 9550 

,9560,9570,95 


80,9590,9600 

: rem 

65 

9520 

GOTO 9 1 1 0 

: rem 

21 2 

9530 

CC0-CHR$(5) : RETURN: REM BIANCO 




: rem 

35 

9540 

CCS «CHR$ (2&) : RETURN : REM 

ROSSO 




; rem 

67 

9550 

CCS-CHRS i 30) : RETURN: REM 

VERDE 




: rem 

29 

9560 

CCO =CHR$ (31): RETURN : REM 

BLU: rem 

1 40 




9570 CC$=CHR$ (1 44) : RETURN :REM NERO 

: rem 19 

9580 CC$=CHRS O 56) : RETURN :REM PORPORA 

: rem 6 

9590 CCS-CHRS (158) : RETURN : REM GIALLO 

: rem 158 

9600 CC$-CHR$ (1 59) : RETURN: REM BLU-VERDE 

: r em 101 

9610 RETURN srem 176 

9900 REM" ****************************** 

:rem 196 

9910 REM"* IL PROGRAMMA LEGGE FILE DA É 

; rem 241 

992 0 REM' 1 * WORD -PROCESSOR DIFFERENTI 

{ 2 SPAZ I } * : rem SS 

9930 REM"* E VISUALIZZA SULLO SCHERMO * 

t rem 38 

994 0 REM"* 0 SULLA STAMPANTE IL TESTO * * 

: r em 2 55 

9950 REM"* L’USCITA SU STAMPANTE E T 

{ 3 SPAZI}* ; rem 174 

9960 REM"* FORMATTATA DALLA VARIABILE * 

; r em 10 

9970 REM 1 '* KM IN RIGA 1- RISPONDETE 

t 3 SPAZI}* :rem 104 

9980 REM"* 'S* ALLA DOMANDA STAMPANTE * 

: rem 16 

9990 REM 11 * CBM { SPAZI} ? QUANDO POSSIBILE. 

{ 4 SPAZI}* :rem 6 

9999 rem" ****************************** 

: rem 21 4 
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un Jocksonìano 
personal computer 



È in edicola ABC personal computer, il corso 
programmato per tutti i personal che ti inse- 
gna il Basic e a dialogare col computer in me- 
no di ó mesi. 

ABC personal computer ti svelerò tutti i se- 
greti dei personal. Inoltre, se non hoi ancoro ìl 
computer, ABC personal computer ti aiuta a 
sceglierlo berte, perchè ogni settimana prova 
per te i personal più interessanti, 

ABC personal computer tn soli 25 fascicoli set- 
timanali. 

ABC personal computer 6 un'opera esauriente. 


rapida e comprensibile a tutti, ideata e realiz 
zata dagli specialisti del Gruppo Editoriale 
Jackson 

Il primo numera è in edicola, corri a prender- 
lo: puoi vincere 30 fantastici MSX Philips! 

Ma non sola. 

Trovi in regalo il poster del Basic che ti con- 
sente di convertire i programmi di una mac- 
china su qualsiasi altra. 

Diventa un ,acksoniano 
con ABC personal com- 
puter. 


GRUPPO 

EDITORIALE JACKSON 
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di K. M. Qqeen 

tr ad. e adatt. 

di F. Sa rei tra 



In ancata gioco ciò elio dovi fare 
è senplicementt uscire da no la- 
birinto: sembra facile, ma non lo 
è, Partendo dall'angolo nord- 
ovest devi riuscire a raggiungere 
l'uscita, che si trova all'angolo 
sud-est. Inoltre, ad ogni partita 
Il labirinto è diverso, per cui il 
percorso seguito una volta po- 
trebbe, la volta successiva, por- 
tarti in un vicolo cieco. Funziona 
sla sul C64 che sul V)C 20 (con 
o senza espansione). 


D ato che ti trovi fn un labirinto, puoi 
comportarti in due modi: esplorarlo 
con comodo, come se stessi facendo 
una passeggiata, cercando di costruirne 
una pianta e senza porti limiti di tempo; 
oppure tentare di uscirne il più veloce- 
mente possibile, trasformando il gioco 
in una gara con te stesso e coi tuoi ami- 
ci 

Dopo aver digitato e salvato il program 
ma devi semplicemente dare il RUN: lo 
schermo appare vuoto, mentre il com- 
puter costruisce il labirinto, per cui devi 
attendere qualche secondo prima che il 
gioco inìzi. Il tuo punto di partenza è 
T angolo nord-ovest (in alto a sinistra), e 
il muro verso nord che hai inizialmente 
di fronte è contrassegnato dalla parola 
INIZIO. L'uscita si trova invece all'an- 
golo sud-est [in basso a destra), in corri- 
spondenza del muro verso sud contras- 
segnato dalla parola FINE, Per guarda 
re nelle quattro direzioni possibili premi 
S, N, E oppure O. Durante il gioco la 
direzione nella quale stai puntando ap 
pare nella parte alta dello schermo. Per 
muoverti in tale direzione premi la bar- 
ra spaziatrice. Per prendere nota delle 
tue mosse, ed eventualmente cercare 
di disegnare una mappa, ti consigliamo 
inoltre di fornirti di carta e matita. 

Se tuttavia ad un certo punto pensi di 
esserti perso e dì non avere molte spe- 
ranze di trovare da solo l'uscita, premi 
A [Aiuto!): potrai in tal modo dare una 
breve occhiata alla mappa del labirinto, 
sulla quale è indicata la tua attuale posi- 
zione, Nel caso che tu non riesca ugual- 
mente a trovare una via d'uscita potrai 


comunque abbandonare premendo F e 
riprovare con un nuovo labirinto. 
Quando sarai riuscito ad arrivare a con 
tatto col muro contrassegnato dalle pa- 
role FINE dovrai compiere un ulteriore 
passo verso sud per uscire dal labirinto 
e concludere la partita. Ti verrà quindi 
comunicato il tempo impiegato per rag- 
giungere l'uscita, e subito dopo potrai 
vedere la mappa del labirinto. 

Funziona mento del 
programma 

La prima cosa che il programma fa è 
disegnare lo sfondo, che consìste In una 
X gigante la quale rappresenta il corri- 
doio visto in prospettiva, privo per ora 


di incroci con altri corridoi laterali. A 
questo punto il computer esplora il labi- 
rinto (memorizzato in una matrice) nella 
direzione in cui il giocatore è rivolto e 
controlla l’esistenza di eventuali corri 
doi laterali, che vengono quindi disegna 
ti a sinistra e a destra della X. Successi- 
vamente viene controllata la presenza 
di un eventuale muro di fronte all'esplo- 
ratore ; se esiste, tale muro viene rap 
presentato disegnando un rettangolo 
centrato sulla X, le cui dimensioni di- 
pendono dalla distanza a cui si trova la 
parete. Nel caso in cui non vi sia un 
muro il programma prosegue la sua 
esplorazione del corridoio, arrivando fi- 
no al quinto spazio libero dinanzi al gio- 
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calore {H labirinto misura 15x15 spazi). 
Il risultato di questo procedimento è un 
disegno che simula la visione t ridirne n 
stonale del corridoio del labirinto , così 
come apparirebbe a chi si trovasse real- 


mente al suo interno 
Se digiti questo programma su un VIC 
20 inespanso, fai molta attenzione a 
non introdurre, memorizzando le linee, 
degli spazi extra oltre a quelli indicati 


nel listato che pubblichiamo. Dato che 
il programma occupa pressoché tutta la 
memoria, anche pochi byte di troppo 
potrebbero causare un OUT OF ME- 
MORY FRROR 


Labirinto 3*D 

1 X-PEEK (648) *256;SY56551 7:GP=PEEK [781 ) :I 

FGP=4 OTHENCRS =CHRS { 1 3} : rem 2 30 

2 D I MM% {17,17) : OS - M { G I U 1 }{ 2 SPASI}ÌRVS}P 

REMI UN TASTO": IFGPO40THENFGKE36879, 1 1 
0 : rem 50 

3 FQRJ=1 TOl 7 :FORl=2TOl 6 :M% ( 1 , J) =1 sM% ( I 7 f J 

) = 1 : M% ( I f ! 7J : M% ( 1 , 1 ) =1 : NEXT ; NEXT 

:rem TG2 

4 FORI = 3TUl 6STE P 2 : FOR J * 3 TO ì 6STEP2 iH% ( I , JJ 

=1 jNEXT:NEXT:AJ*0:Q$= m N" :rem 107 

5 FORK^ 1 T03 7; I« INT (RND { 1 ) *1 5) +2 : J= INT (RND 
(l)*15)+2:MI(Ir J)-T :NEXT:Q*1 :R=2:C=2 

:rem 244 

6 FOR 1 = 1 T02G i RE ADW : READY : M% { W , Y ) - 0 : NEXT : R 
ESTORE :TI?- " 000000 " "E- 0:D--1 :AI = D 

: r em 62 

7 PO KE 1 98, Or P RI NT " { CLR ) { WHT } " T AB ( 1 0}Q$ ;1F 

M% (B+E,C+D) = 7 THEN32 :rem 35 

8 PRI NT" { HOME } ( GIU 1 } M ( GIU f } M I Gl U ' }M 

(GIU 1 }M{ Gl U 1 1 M{ Gl U 1 JM{ Gl U 1 Jm { GIU 1 7m 
[GIU 1 } M { Gl U 1 } M{ Gl U 1 IMI GIU 1 )M[GIU T }H 
{ GIU ’ } M{ Gl U 1 } M{ Gl U * }M( GIU 1 )M{ GIU 1 }M 
{GIU 1 )M{GIU' }H M ~~ srem 116 

9 PRI NT 11 {SU } N f SU ) N{ SU } N{ SU } hJ{ SU} N( SU }N 
{SU}N{SU}N[ SU}N{SU)N(SU]N[SU}N{SU}N":PR 
tNTTAB (1 3) 11 { SUTW{ SUTN{SUTN[SUTnISuTn 

{ SU } N { SU } N { SU } nTHOMET* 1 : rem 127 

10 IFM% ( B+AI /C+AJ J -0THENGQSUR58 : rem 88 

11 LFM% (B-A1,C-AJ) =0THENGOSUB60 :rem 86 

T 2 IFM% (B*2*E r C+2*D) *1 THEM38 :rem 5 

1 3 IFM% (B+2*E+Al,C+2*D-»-AJ) =OTHENGOSUB52 

:rem 236 

7 4 IFMl [B+2*E~AI,C+2*D-AJJ «OTHENGOSUB54 




:rem 

243 

} 5 

IFM% [B+3*E,C+3*D] *lTHEN40 

:rem 

3 

1 6 

IFM1 (B^4*E,C+4*D) «1THEN45 

:rem 

II 

17 

IFMI ( B+4 *E^AI fC + 4 *D+AJ) =0THENGOSUB56 

: rem 2 4 8 


1 8 IFM%(B+4*E-A1,C+4*D*AJ) “OTtIBNGOSUBS? 




: rem 

2 54 

1 9 

IFMi (B+5*E,C+5*D) =1THEN47 

: rem 

18 

20 

GOS UB 4 8 : GETQ$ : I FQS = 11 "THEN 2 0 

: rem 

45 

21 

IFQS " ,f F "THENPRI NT " { CLR } 11 : Z S * 

1 : GOSUB63 : 


GOTO 7 6 

: rem 

25 

22 

I FQ$ = n N M THENE a 0 : D« - 1 :Al = -l :AJ^0:GOTO7 



: rem 

108 

23 

IFQ$ = "S"THENE*0:D-ì :AI=*1 :AJ- 

0 : GOTO? 



; rem 

24 

24 

IFQ$*"E rt THENE=l :D-0 : AI^O : AJ= 

- 1 : GOTO 7 



: rem 

56 

25 

IFQ$ ” ”0 r) THENE* - 1 ;D = 0:AI"0:AJ 

- 1 : GOT07 



;rem 

67 

2 6 

IFQ$ = " A M THENQ5 - 11 " ; GOS UB 6 2 : GOTO? 




; rem 

31 

2 7 

IFQ$ = n "THENQS - nn i GOT02 9 

; rem 

241 

28 

GOTO20 

:resn 

5 

29 

IFM% (B+E,OD}O0THEN20 

iresti 

1 36 

30 

TFM% ( B+2*E f C+2*D) -1THEN20 

:rem 

252 

31 

B=B+2 *Bs C=C+ 2 *D : GOTO? 

: rem 

99 

32 

PRI NT *' { HOME } 0 f < 20 Y>JP"CR$; 

: POR I = 

1 TOl 


9 

; rem 

13 

33 

PRINT" [<G> J { 20 SPAZI} (<M>J B 

CR$; :NEXT 



: rem 

240 

34 

PRINT"L [< 20 P> ) 8 { HOME } 11 

: rem 

1 25 


35 PRI NT" [ HOME } "TAB { 1 0)Q$ ; I FB + E= 2 ANDC+D= 1 
ANDQS = "N "TKENPRI NTTAB [ 8 J " {SU} (RVS} INIZ 
IO" : rem 19 

3 6 IFB = 1 6ANDO 1 6ANDQS * "S * THE (TP RI NTTAB [ 9) " 
{WHT] { 5 GIU 1 } { RVS ] FINE" ; FORI “ 7 TC3E3 : N 
EXT :rera 66 

3 7 GOTO2 0 :r ero 5 

38 PRI NT" { HOME } { 4 GIU'H 4 DESÌO 

[< 12 Y>] P":FORI = lTOl 2;PRINT"f 4 DESI 
[<G>){ 12 SPAZI H<M>J " :NEXT :rem 92 

39 PRI NT” { 4 DES)L{< 12 P>] 8" : GOTO20 

:rem 64 

40 PRI NT" {HOME} { 5 GIU 1 } { 5 DES }0 

[< IO Y>] P": FORICI TOl 0: PRI NTTAB (5) " 
E<G>] { 10 SPAZI} [<M>1 ":NEXT :rem 252 

41 PRI NTTAB ( 5 1 " L l < 10 P>]8" ; rem 239 

4 2 IFU=2ANDC-3=TaNDG$-"N"THENPRINT" [HOME} 

[ 7 GIU' } "TAB( 10) " [RVS] I" : rem 83 

43 IFB-1 6 ANDC+3 = 1 7ANDQS -"S "THENPRI NT" 
{HOME}{ 7 GIU 1 } "TAB [1 0 ) " [ RVS } F " 

: rem 192 

44 GOTO 20 :rem 3 

45 PRI NT " { HOME } { 8 GIU * } "TAB ( 8 ) "O 
[<^4 Y> ) P ( Gl U 1 } { 6 STN ] [ <G> J 

[ 4 SPAZI} E <M> ) {GTU* } { 6 SIN} [<G>] 

{ 4 SPAZI } [ <M> j { GIU 1 } { 6 SIN) [<G>] 

{ 4 SPAZr) [ <M> 1 " : rem 21 

46 PRINTTAB(S) - {<G>) { 4 5PAZ I H <M> ] {GIU * } 
{ 6 S IN | L f < 4 P> | 8 " : GOTO20 :rem 189 

4 7 P RI NT ” { HOME } ** : P RI NTTAB ( 9 ) 11 { 8 GlU r }0 
[< 2 Y>]P{GIU'}{ 4 SIN} f < G > 1 
{ 2 SPAZI} {<M>| {GIU 1 } { 4 SIN } [<G> } 

{ 2 SPAZI} [<M>] {GIU* } ( 4 SIN}L 
[< 2 P> } § " : GOT02 0 ;rem 48 

4 8 IFBOl 60RCO1 60RQS <> "S "THEN RETURN 

: rem 2 5 

4 9 FORI - 1 TOl E3 : NEXT : P R I NT" (CLR } { 3 GIU 1 } 
"TAB (4) "CE L 1 HAI FATTA" : rem 126 

50 PRI NTTAB (4) " IN" VAL (TI 3 ) "SECONDI : PRI NT 
"{ 2 GIU 1 } "TAB (4) ,r { RVS} PREMI UN TASTO" 

:rem 247 

51 FORICI TOl E3: NEXT ìPOKEl 98 , 0 :GOSUB73 :PRI 

NT" (CLR} " :G0T063 :rem 206 

52 PRI NT 11 [ HOME ) { 4 GIU'}{ 3 DES}l<M>] 

{ GIU r } { 2 SIN} UM^PlGTir } { 2 SIN} 

[< 2 M> 1 { Gl U 1 } { 2 SIN}[< 2 M>l{GlU f ì 
{ 2 SIN] l< 2 M>] {GIU 1 } ( 2 SIN} 

l< 2 M> ] {GIU * } ( 2 SIN } [ < 2 M>]{GIU*] 

[ 2 SIN} [< 2 M>] {GIU 1 } { 2 SIN} 

[< 2 M>] {GIU* }{ 2 SIN} [< 2 M>] (GIU* } 

[ 2 SIN}[< 2 M>|{GIU 4 }{ 2 SIN) 

[< 2 M> ] " ; : rem 132 

53 PRINT" [GIU* H 2 SIN ) [ <K> ] £{ Gl U 1 } 

{ 2 SIN}{<M>1 " : RETURN : rem 241 

54 FRI NT 11 { HOME } " ì P R I NTTAB [ 1 7 ) " { 3 GIU 1 } 

r<G> I {GIU * } { 2 SIN}0[<G>I [GIU* } 

{ 2 SINH< 2 G>|{GIU , ^{ 2 SIN) 

I< 2 G>J {GIU'H 2 SIN} [< 2 G>1{GIU'} 

[ 2 SIN H< 2 G> ) (GIU * } { 2 SIN} 

[< 2 ojjGIU'H 2 SIN} {< 2 G> ] {GIU 1 ] 

{ 2 SIN}[< 2 G> ) {GIU * } { 2 SIN} 

[< 2 G>] ;rem 98 

55 PRINT"{GIU* } ( 2 SIN} [< 2 G>}(GIU t } 

{ 2 SiN}[< 2 G > 1 ** : PRI NTTAB [17) ” L f < G > 1 
(GIU'M 2 SIN} {<G>I " : RETURN :rem 123 
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56 PRI NT" { HOME J "TAB ( 7 ) " ( 8 GIU')[<K>) 
tGIU'H 2 SIN } [ <M> } P(GIU ' ) { 2 SIN} 
l< 2 M> ] { GIU ' } ( 2 SIN}(< 2 M>][GIU'} 

{ 2 SIN}[<M>J@[GIU'}{ 2 SIN } 1<K> ) ":R E 
TURN : rem 205 

57 PRINT"[H0ME}":PRINTTABn3) "( 7 GIU'} 
(<G>) (GIU' } ( 2 SXN}0[<G>J [GIU' } 

{ 2 SIN} {< 2 G>] (GIÙ' H 2 SIN) 

J< 2 G>] (GIU* } { 2 SIN]M<G>MGIU’} 

{ 2 SIN} (<G> ] " : RETURN :rem I7B 

58 PRI NT" { HOME } {Gl U ' } [SIN } P[ GIU ' }{ SIN } 
[<K>I {GIU* } {SIN} [<M>] {GIU' ) (SIN) £<M>) 
{GIU’ } {SIN} !<M>] (GIU 1 ({SIN} [<M>] [GIU' } 
{SIN} [ <M> ] (GIU' } [SIN} [<M>| (GIU' } (SIN} 
[<M>){GIU' USIN} [<M>] (GIU- } (SIN) [<H>] 
[GIU 1 ) (SIN} [<M>] [GIU' ) (SIN) ( <M> ) (GIU 1 } 
[SIN) ( <M>] {GIU ' ) [SIN) [<M>] [GIU' } (SIN} 
[<M>] [GIU' ) [SIN) I <M> ) [GIU 1 ) (STN) [<M>] 
[GIU'} [SIN} [<H>] (GIU* } (SIN}S(GTU’) 

(SIN) (HOME}" - ; rem 242 

59 RETURN -rem 70 

60 POR I • X+ ( 2*GP ) TOX+ (21 *GP) STEPGP : POKEI , 1 

Ot :NEXT:POKEX,32 :rem 67 

6} POKEX+GP , 79 : POKEX+- ( 20*GP) , 76 : POKEX+ ( 2? 
*GP) ,32: RETURN :rem 81 


62 PSINT" JCLR) { 2 SPAZIjTI TROVI QUI":2S= 

1 ' : rem 65 

63 FORJ * 1 TO 17: POR I =* 1 TO 1 7 :rem 24 6 

64 I FM % ( I t J) * 1 THENP RI NT M { RVS } {OFF} n j:GOT 

06 8 ; rem 169 

6 5 IFI = BANDJ-CTHFNPRINT"{CYN}Z{WHTÌ " ; :GOT 
068 : rem 24 9 

66 IFM% ( I,J) *5THENPRINT M R n ; :G0T068 

:rem 93 

6 7 PRXNT*MDES}"; ;rem 150 

68 NE XT : P R I NT 11 " : NEXT : FQR t = 1 T0 1 E3:NEXT 

ì rem 206 

69 IFZSTHENZS = 0: RETURN : rem 14 

70 PQKE 198,0: PRI NTO$ : GOSUB 7 3 : CLR : GOTO 1 

: rem V77 

71 DA TA2, 2, 2, 3, 2, 4, 4, 2, 4,4, 4, 3, 1 6, 14,16,1 
6 ,14, 16, 15, 16, 14, 14, 8, 5, 8, 6, 8, 7 

:rem 209 

72 DATA8,8, 8, 9, B, 10, 1 4,8, ? 4, 9, ? 4, 10, 3, 2,2 

,5,5,2,12,10,10,10,6,6 :rem 23 

73 GETA5 :IFA$ = K1, THEN73 :rem 247 \ 

74 :FA$^ h Q h THENPOKE 198,0;SYS198 ìrem 104 

75 PRI NT 11 (CLR} H : RETURN :tem 234 

76 PRINT05 :WAIT1 98,1 : POKEI 9B, 0:SVS1 98 

: r em 29 



ERRATA CORRIGE 


Nel programma "Interprete TurtJe Graphics 
per C64” pubblicato sul numero 6 di 
SUPEHVIC, ci sono stati segnalati 
Inconvenienti nel salvataggio sa nastro 
delle procedure. Questi ultimi si verificano 
a causa di una leggera interferenza tra la 
ronfine In linguaggio macchina di gestione 
del raster ànterrupt (che permette di avere 
contemporaneamente visualizzati pagina 
grafica e testo) e la routine di salvataggio 
dati su nastro. Per ovviare a questo 
Inconveniente, abbiamo modi flato 
quest’ultimo come qui riportata Occorre 
dunque modificare o aggiungere le seguenti 
linee al Programma 3: 


2301 B GOSUB27000iOPEN2, 1 , 0 , WDS+" . TURTLE" 
23060 CLOSE 2 : SYS 4 9 3 2 2 : RETURN 
2 401 B GOSUB27 000 : OPEN2 ,1,1, WD$ + " , TURTLE 11 
24 04 0 CLOSE2 : SYS4 9322 :RÉTURN 
27000 SY£654G9iPOKE53280,2:POKE5328t , 1 1 :D 
H= 0 : GOSUB 3 000 : POKE53287 , 0 s P0KE5E, 1 
2 7010 PR I NTCHRS (30): RETURN 


Nessuna modifica al programma è invece 
necessaria se al utilizza 11 disk drive. 
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di S. Pucketi 

trad. e adatt. 

di F. Sarcina 



Tra i giacili da scacchiera, que- 
sto è oua dei più moderni e inte- 
ressanti da giocare con un com- 
puter, Noi di SUPERCOMMODO- 
RE te lo proponiamo^ nella ver* 
alone VIC 20 e C64. È richiesto 
un joystick (porta 2 per il €64), 


T> eversi ts dà la possibilità di giocare 
l\ sia contro il computer che contro 
un altro giocatore. Le regole sono vera 
mente semplici: si gioca sistemando una 
pedina alla volta sulla scacchiera, in mo- 
do da catturare le pedine avversarie. 
Per fare ciò bisogna chiudere una o più 
pedine dell'opposto colore tra due del 
proprio; in questo modo tutte le pedine 
avversarie catturate cambiano di colore 
e diventano in possesso del giocatore 
che muove. Con ogni mossa si deve cat- 
turare almeno un pezzo avversario; se 
ciò non e possibile, sì salta il turno. Vin- 
ce chi alia fine del gioco (cioè quando 
tutte le 64 caselle della scacchiera sono 
occupate o quando nessuno dei due gio- 
catori può effettuare una mossa valida) 
possiede più pedine del proprio colo- 
re. 
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Mosse possibili per il riero 



f « * « LJti I ì t * * 




Le catture sono effettuabili In orizzonta' 
le T in verticale, nelle due diagonali o, se 
la mossa è particolarmente abile, anche 
in piu direzioni contemporaneamente. 
Per porre la pedina sulla scacchiera 
premete il pulsante del joystick quando 
il cursore è posizionato sulla casella da 
voi scelta. Per quanto riguarda la mi 
gllor tattica di gioco lasciamo che il vo- 
stro computer ve la insegni pian piano, 
battendovi le prime volte... 


Nella versione per il C64 è possibile 
memorizzare sulla scacchiera vuota una 
determinata configurazione iniziale del- 
le pedine; la versione per il VIC ha inve- 
ce la possibilità dì far scontrare il com- 
puter contro se stesso, osservando la 
sua tattica. 

Il programma contiene spiegazioni par- 
ticolareggiate, quindi il modo migliore 
per impararne l'uso è proprio provare 
a giocare. Buon divertimento! 
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Reversi 

versione per VIC 20 


10 

GOSUB54 0 

: rem 

122 

580 

20 

IFJ^20RF=64THEN470 

srem 

2 


30 

IFC 1 « 7 THENC 1 =2 :C2* 7 :GQTO50 

: rem 

219 

590 

40 

CI -7 : C 2 = 2 

; rem 

700 

600 

50 

I FC 7 = 1 ANDBg = " C" THEN2 70 

: rem 

1 SS 


60 

I FC T = 2 ANDW$ = " C "THEN 2 70 

: rem 

178 

61 0 

70 

GETA$ : IFA$="P"THENJ- J+l :GOTO20 





t rem 

220 

620 

80 

POKE371 54, 7 27 : A=PEEK (3 71 52) ANDl 28 

:B^(A 

630 


-0} 

: rem 

783 


90 

P0KE371 54 , 25 5 : A=PEEK {371 51 ) 

: rem 

1 47 

640 

1 00 

R=R+ ( { AAND8 ) =0) - ( £ AAND4 ) =0) 

: rem 

124 


1 1 0 

C=C+ < ( AAND7 6) =0)-B 

:rem 

121 


120 

IFR<0THENR=0 

: rem 

206 

650 

130 

IFR> 7THENR™7 

: rem 

223 


7 40 

ifc<otkenc=o 

: rem 

778 

660 

7 50 

IF07THENC-7 

; rem 

195 


1 60 

B d B079-44* R+C+C 

irem 

21 9 


1 70 

DsPEEK (B) :D1 ”PEEK£B+3Q720> 

: rem 

156 

670 

7 80 

POKEB + 30720 r C 1 - 1 :POKEB ,0+ 1 28 : rem 

16 


190 

FORE = 0 TQ9 9 : NEXT 

: rem 

7 93 

680 

200 

POKEB+30720, DI :POKEB,D 

: rem 

230 

690 

210 

FORE= 0 T09 9 i NEXT 

: rem 

1 86 


220 

IF(AAND32 ) =GTHENP=9* ( 7~R) +C; GOTO240 

700 



; rem 

24 7 


230 

GOT070 

?rem 

53 

77 0 

240 

IFB(P) THEN 50 

ì rem 

1 56 


250 

GOSUB4 00 j IF NTHENA= P : GQSUB 3 70 

POKEL- 30 

720 


720, 4 6 : POKEL , 7 ; B ( P) -O:GOT05O 

: rem 

7 


260 

J=0 : F*F+Ì : GOTO 20 

: rem 

131 

730 

270 

M* - 99 : FORE=OT07O : IFB ( E) THEN3 50 





:rem 

7 

740 

280 

N*OiF0RX=OTO7rA=E:B-O 

: rem 

257 


290 

A” A+D (X J : IPA<O0RA> 70THEN32 0 

i rem 

57 

750 

300 

IFB (A) ™C 2 THEN8 -B+1 :GOT029G 

ì rem 

2 


37 0 

IFB £A} *C 1 THENN=N+E 

:rem 

29 

760 

320 

NEXT : I FN- 0 THEN 3 50 

:rem 

31 

770 

330 

N=N+RND ( 1 ) * • 9 : IFF< 55THENN = G (E) +G(E)~N 




:rem 

96 

780 

340 

IFM<NTHENM=N : P=E 

; rem 

16 


3 50 

NEXT ; I FM=- 99THENJ- J+ 1 :GOT02O 

: rem 

250 

790 

360 

J*0:F-F+7 : GOSUB 4 0 0 : G0T02 0 

: rem 

21 0 


370 

POKE36874, 23O:F0RH=OTO99:NEXT:POKE368 

’ 800 


74,0 

: rem 

203 


380 

L* 3849 1+26* INT ( A/9 } + A+ A ; POKE L ,C 7 - 

7 

810 



: rem 

90 

820 

390 

B ( A ) =C 7 : RETURN 

: rem 

59 

830 

400 

A=P:G0SUB37O ; POKEL- 3 0720, 81 

:rem 

47 

84 0 

41 0 

N-l I FORX= 0TO7 : A=P : B = 0 

; rem 

2 



4 20 A"A+D {X ) : IFA<QQRA>70THEN4 60 :rem 51 
430 IFB(A) *C2THENR-B+1 :GOT0420 :rem 1 

440 IFB (A) < >C1 ORB = QTHEN4 60 :rem 2 

4 50 N= 0 : A- P : FORE - 1 TQB : A= A+0 {X } : GOSUB37Q : M 



EXT 

:rem 

243 

460 

NEXT : RETURN 

:rem 

24 3 

4 70 

FORE= 0TO70 ; IFB ( E) =1 THENS 7 

«ST+1 




treni 

29 

480 

IFB {E) =2TKENS2=S2+7 

: rem 

68 

4 90 

NEXT: PRINT" {HOME} { WHT } " : IFS I >S2THENPR 


INT "VITTORI A AI NERI PRI NTS 1 "A"S2 

:GO 


T052O 

: rem 

152 

500 

I FS K S 2 THENP RI NT "VITTORIA 

AI BIANCHI" 


;PRINTS2 ,, A M Sl :G0T052O 

:rem 

178 

51 0 

PRINT" { 6 SPAZI) PAREGGIO! 

" : rem 

21 4 

520 

GETA$ : T FA$ = " "THEN 52 0 

: rem 

87 

530 

RUN 

; rem 

147 

54 0 

F0RA-OT07 : READD (A) ; NEXT 

: rem 

173 

550 

DIME { 70) ,G(7Q) :A=RND(-TI) ;F=4:POKE368 


78,1 5 

srem 

76 


560 FORA*QT034:READB:G{A] =B:G(70-A) “B:NEX 
T ? rem 3 

570 FQRA-8T062STEP9:B{A} -3:NEXT : rem 176 

B ( 30) =2:B(31> =1 ;B{39)«7 :B(40)*2 

: rem 232 

CI "2 :C2*1 ?rem 1 5B 

P0KE3 687 9 * 1 1 0 : C$ = " { BLK } NERI " : G0SUB77Q 
:B$~A$ : rem 1 4 

C$-“{WHT) BIANCHI " : GGSUB770 : W$ » A$ 

ìrem 33 

IFZ = 0THEN690 : rem 188 

PRINT” {CLR} {GIU* } SPOSTA IL CURSORE CO 

N {GIU 1 1 IL JOYSTICK,” ;r em 68 

PRINT" { Gl U 1 } PREMI * FISE 1 PER 
{ 6 SPAZI) {GIU 1 } EFFETTUARE LA MOSSA, " 

: rem 1 2 

PRINT" {GIU" } ’P* PER PASSARE. " 

:rem 797 

IFZ-ZTHENFRlNT^tGIU 1 }IL COLORE DEL CU 
RSORE {GIU * } INDICA A CHI TOCCA." 

: rem 60 

PRINT" {GIU 1 ì PREMI LO SPAZIO 

: r em 7 7 9 

GETA$ ; IFA$<>" "THEN680 :rem 156 

PRINTCHR$ { 1 42 J ” (CLR] [ WHT } { 7 SPAZI }RE 
VERSI” :rem 17 

PRINT" { 2 GIU 1 } { 2 DES } { BLK } [ < A> 1 
{ 1 5 * j {<&» " :rem 242 

FORA" 1 TQ8 : FRI NT" { BLK } { 2 SPA2 1 > YEL) 

{BLK}-" : rem 252 

PRINT* { 2 DES } - "TAB (18) n - M : NEXT 

: rem 7 72 

PRINT" { SU} { 2 DES} [<Z>] { 7 5 *M<X>]" 

:rem 224 

PRINT" {HOME} { 10 GIU 1 ) "TAB [ 9) " ( WHT}Q 
(BLK)Q* 1 : rem 5 

PRINTTAB [9)"{GIU* } {BLK}Q { WHT)Q 

:rem 244 

RETURN :rem 125 

PRINTCHR$ ( 14) "{CLR} {WHTjCHI GIOCA CON 

I " : r em T 5 8 

PRINT" {GIU 1 } PEZZI { RVS } "C$ " { OFF } { WHT } 
7 ” : r em 1 6 6 

PRI NT" { 2 GIU* } { 2 DES}{RVS]C{0FF)OMP 


UTER" 

Trem 

96 

PRI NT" { GIU 1 } { 2 DES} {RVS } CJ{ OFFÌOMO 

li 


: rem 

24 

GETA$ :IPA$=""THBN81 0 

; r em 

85 

I FA5 - " U " THENZ =Z +1 

: rem 

224 

RETURN 

; rem 

723 

DATA- 9, -8, 7 ,10,9, 8,-1 # -10 

: rem 

1 64 



48 SUPERCQHXOfcGHE® 3/S5 



850 DATAI 6, -4, 4, 2, 2, 4, -4, 16, 0,-4, -12, -2,- 
2, -2, -2, -12, -4,0 trem 189 

860 DATA4 ,-2 , 4, 2, 2, 4, -2, 4, 0,2, -2, 2, 0,0, 2, 
- 2 r 2 trem 12 8 

Reversi 

versione per C64 

10 POKE56, 56:CLR:TU=1 :POKK53281 , 1 5:CO=542 
72:SC-1 3:CH1P$«"%& (GIU* }{ 2 SIN}#$"!PL 


- ! tram 158 

20 DIMBO(SO) ,TA{71 ) ,FT{71) ,A(7I ) ,FO(0O) 



: r em 

51 

30 GOSUB2500 

: rem 

170 

40 GOSUB760 

: rem 

129 

50 GOSUB1 060 

: rem 

172 

60 GOSUB960 

: rem 

133 

70 IFDE-1 THENGOSUBl 21 OtGOTOl 50 

: rem 

105 

80 FQRY«2TO5;F0RX=2T05 

trem 

175 

90 RE ADA : PO { Y * 9+X ) = A £ NEXT : NEXT 

t rem 

159 

100 BO { 3 0 ) = 2 : BO { 31 ) = 1 :BO(39) -1 

: BO (40} 

= 2 ;B 

C*2 : WC- 2 

: rem 

137 

110 POKE64 6 , 1 t POKE 21 4,9* PRI NT * 

PRINTTAB {10 

) ; CHIPS 

; rem 

189 

120 PÓKE21 4 , 9 : PRINT : POKE64 6 , 0 t 

PRINTTAB ( 1 3 

) ; CHIPS 

: rem 

192 

1 30 POKE64 6 , 0 : POKE 21 4, ? 2 SPRINT 

5 PRINTTAB (1 

0) ; CHI PS 

: rem 

232 

1 40 POKE21 4, 1 2 : PRINT :PGKE64 6 , 1 

: PRI NTTAB (1 

3) ; CHIPS 

: rem 

237 

150 PL*1 : X= 4 t Y-4 : WC$-STR$ ( WC ) + 

rt 11 1 BC$ 

-STR 

$ ( BC ) + " " 

; rem 

203 

160 IFTU-lTHENM$= n { BLU] MOSSA: 

NERO 


{ 2 SPAZI}": GOTO! 80 

trem 

122 

170 M$ ■ ” £ BLU } MOSSA : BIANCO" 

: rem 

18 


1 80 POKE 21 4 , 4 : PRINT : PRINTTAB (26) ;MS :P0KE2 

1 4, 1 2 SPRINT: PRINTTAB (31 ) ; BC$ : rem 22 

190 I FP L- 1 THENAL* BC+ 1 : GOTO 2 1 0 : rem 19 

200 AL=WC+1 :rem 82 

21 0 P0KE21 4 , I 8 : PRI NT : FRI NTTAB ( 3 1 ) ;WC$ 

: rem 1 

220 POKE 214,10: PRI NT s PRI NTTAB (25) ''PEDINE 
NERE" s rem 39 

230 P0KE21 4,16: PRI NT ; PRI NTTAB (25) " PEDINE 
BIANCHE” trem 238 

2 40 1 FCM- 1 ANDTU=PLTHENGOSUB 1 9 3 0 : G0T04 50 

; rem 0 

250 POKE53269,l irem 44 

26 0 JV= PEEK ( 56320 J : FR=JVANDl 6 : JV« 1 5- ( JVAN 
Di 5) :S*0 : rem 1 62 

2 70 IFJV= 1 AND Y> 0 THENY- Y- 1 : GOTO 3 20 

:rem 84 

2 80 I FJ V= 2ANDY<7THENY”Y+ 1 : GOTO 320 

; rem 89 

290 IFJV*4ANDX>0THENX=X-1 :GOTO320 

trem 86 

300 IFJV=8ANDX<7THENX=X+1 :GOTQ320 

: rem 8 5 

310 GOTO330 i rem 99 

32 0 PGKECG+4 ,17* POKECO+1 ,25: FORI - 1 T02 0 ! NE 
XTI : PGKBCO+4 ,16 : rem 191 

330 GETA$ : I FA$ < > ”F "THE N 3 80 treni 215 

3 40 POKE 2 14,20: PRI NT ; PRINTTAB ( 26 J ” VU0 1 VE 

RAMENTE”;SPC (28) ; "TERMINARE” : rem 57 

34 5 PRINTSPC { 29) " IL GIOCO n : rem 21 

350 GETA$ : IFAS = i, S* t THENl 74 0 : rem 218 

360 IFA$O"N M THEN350 trem 96 

3 70 POKE 21 4 , 2 0 : PRI NT : PRI NTTAB (26) " 

{ 14 SPAZI} ”;SPC(28) ; 9 SPAZI}” 

; rem 1 71 

375 PRINTSPC ( 29 ) " { 3 SPAZI}” trem 18 
380 POKE5324B, 32+X* 2 4 :POKÉ5 3 249, 58+Y* 24 

: rem 1 4 5 


390 

SC*SC+1 ; I FSC* 1 6THENSC* ? 3 

trem 

202 

400 

POKB2 04 0 , SC 

: rem 

75 

410 

IFFR^l 6THEN260 

:rem 

39 

420 

XY»Y*9+X: IFBO(XY) >0TKEN26O 

trem 

34 

430 

POKECO+4 , 33 : POKECO+1 ,10: FORJ 

* 1 TOSO 

: NE 


XTJ 

: rem 

209 

440 

POKECO+4 , 32 ;FORJ-l 5TO0STEP- 1 

; POKECO+1 


, T: NEXT 

trem 

20 

4 50 

1FFL-0THEN530 

trem 

23 B 


460 POKE532 69 , 0 * PQKE2T 4 , Y* 3 ; PRI NT 

trem 215 

470 PQKE646,TU-1 t PRINTTAB (X*3+l } ; CHIPS 

:rem 32 


4 80 POKECO+4, 33: POKECO+1 , 1 0 ; FORJ- 1 TOSO : NE 
XTJ : rem 214 

4 90 POKECQ+4 , 32 ; FORJ* 1 5TOOSTEP- 1 : POKECO+1 



, TtNEXT 

: rem 

25 

500 

IFPO(XY) -0THEN53G 

: rem 

249 

510 

GOSUBT 500 

: rem 

220 

520 

IFCHIPS>OTHENGOSUB1 61 0 : BO (XY ) -TU : 

: GOTO 


650 

: rem 

67 

530 

POKE 2 1 4, 20 SPRINT : PRI NTTAB ( 25) "{BLU} MO 


SSA ILLEGALE” : PRI NTTAB { 25) 

" PERO I 

IL T 


URNO” 

i rem 

105 


54 0 POKECO+4 ,33: POKECO+ 1,5: FORO - 1 T03 00 : NE 
XTJ: POKECO+4, 32; POKECO+1 ,0 ; rem 115 

550 FORJ ■ 1 TO 1 5 0 : NEXT J :rem 53 

560 IFFL-0THEN630 tram 241 

570 POKBCO+4, 33: POKECO+1 ,10: FORJ- 1 TOl 50 ;N 
E XTJ £ rem 7 

580 POKECO+4, 32; FORJ=1 5TO0STEP- 1 ìPOKECO+1 
,Tt NEXT : rem 2 5 

590 PQKE64 6 ,1 5: POKE21 4 , Y* 3 : PRI NT : rem 168 
600 PRI NTTAB { 3 * X+ 1 ) ; CHIPS i rem 22 3 

610 POKECO+4, 33 :POK£CO+1 , 1 0 : FORJ* 1 TOSO : NE 
XTJ ; rem 209 

620 POKECO+4, 32 : FORJ = 1 5TOOSTEP-1 ;POKECO+1 
, T: NEXT treni 20 

630 POKE 2 1 4,20; PRI NT : PRI NTTAB (25} " 

{ 1 4 SPAZI) FRI NTTAB { 25} ” 

{ 14 SPA2I}” £ rem 232 

640 GOTO700 ;rem 1 06 

650 IFTU = 1 THENBC-BC+CHIPS+ ! : WC = WC - CH I PS ; G 
OTO670 trem 20 

660 WC-WC+CHIPS+1 :BC=BC-CHIPS trem 48 

670 FORQ* 1 T08 tram 30 

680 IFXY+OF (Q) >- 1 THENPO (XY+OF (Q) ) -1 

trem 124 

690 NKXTQ : rem 47 

700 TU=3-TU : rem 134 

710 IFWC»OORBC=OORWC+BC=64THENT740 

£ rem 76 

720 GOSUB750 trem IBI 

730 I FXY - 0 ORXY = 70RXY = 6 30RXY* 7 0 THE NGOSUB 2 3 
50 : rem 116 

740 GOTOl 50 trem 1 06 

750 POR I * 0TO7 1 : TA ( 1 ) *0 ; NEXT : RETURN 

: rem 173 

760 PRINT" (CLR] [ BLK ) " : PRINTTAB ( 1 6 i 11 { RVS } R 
EVERS I " : rem 9 3 

770 PRINTTAB ( 1 0) " { 2 GIU 1 }! (B)IANCHI INI 
ZIANG" trem 3 

780 PRI NTTAB (1 1 ) ”1 (N)BRI INIZIANO” 

: rem 35 

790 GETA6 :IFAS=”B"THENTU=2£GOT081 0 

* trem 41 

800 IFA$<>"N n THEN790 : rem 103 

810 PRINTTAB (9} " [ 2 GIU 1 } SCHIERAMENTO (N) 
ORMALE 11 : rem 206 

820 PRINTTAB ( 7 J "SCHIERAMENTO (R } IDI S EGNAT 
O" t rem 21 4 

830 GETA$ : IFA$ * "R"THENDE = 1 :GOTO850 

trem 23 


supowioMrtOttófìr® vs& - 49 




840 IFA$O"N M THENB30 treni 102 

850 PRI NTTAB ( 1 3) w { 2 GIU* )(0)N GIOCATORE" 

: r em 173 

860 PRINTTAB (1 2} " (D)UB GIOCATORI " 

:rem 202 

870 GETA3 : 1 Fh$ - "D " THEN9 5 0 ;rem 164 

B80 IFA$O"U"THEN870 :rem 117 

890 CM^I t PRINTTAB (12) "{ 2 GIU 1 } LIVELLO? { 
1-2 ) " : rem 1 42 

900 G ETA$ : LE = VAL ( A$ ) : I FLE < 1 ORLE > 2 THEN 9 0 0 

:rem 176 

910 PRINTTAB ( 8 ) " { 2 GIU' } IL C64 GIOCA CON 
I £ N) ERI " : rem 58 

920 PRINTTAB (6) "IL C64 GIOCA CON I (B) IAN 
CHI M : rem 215 

930 GETA$ : I FA$ = n B "THENPL* 2 : GOT09 5 0 

:rem 29 

IFA$ <>"N"THEN93 0 :rem 1 04 


94 0 
950 
960 


970 


RETURN irem 126 

A$»"[<A>n 2 { 2 *H<R>) 

{ 2 * } [<R>1 t 2 *} t<»>] { Tt M [<R>1 
1 2 3Jt<R>J{ 2 *n<R>ì{ 2 *}|<S>]" 

trem 193 

BS=*M 2 SPAZI }- { 2 SPAZI)- 
{ 2 SPAZI Nf 2 SPAZl}-{ 2 SPAZI }- 
( 2 SPAZI}-} 2 SPAZI 2 SPAZI}-" 

i rena 76 


980 

CS=" [<Q>] [ 2 *}+{ 2 *)+{ 2 

! *} + 




t rem 

142 


( 2 *I+{ 2 *}+{ 2 *} + ( 2 * 

} + { 2 * 

} 

1440 

NEXTE 

; rem 

77 


l<W>T"~ 

: rem 

228 

1450 

NEXTX : NEXTY 

: rem 

51 

990 

DS="l<Z>]{ 2 C) [<E>] { 2 C} [<E>] 


1 460 

PRINT" { HOME} { 6 GIU' ){ BLU} 

";TAB (25) " 


{ 2 C} [ <E> 1 { 2 C} [ <E> 1 { 2 

C} [<E>J 



{ 13 SPAZ Ti PRINTTAB (2 5) " 

f 



{ 2 C) ( <E> J { 2 C} f <E> ] { 2 

€} [<X>] 

n 


{ 1 7 SPAZI) { 2 GIU r )" 

: rem 

2 54 



: rem 

252 

1 470 

PRINTTAB £25) "{ 13 SPAZI}": 

PRINTTAB (2 

1000 

PRINT" { CLR] {BLU} " :PRINTA$ 

: rem 

112 


S) "{ 14 SPAZI} { 2 GIU" }" 

: rem 

232 

101 0 

FORI-ITO? 

; rem 

58 

1480 

PRI NTTAB (25) " { 14 SPAZI}": 

PRINTTAB £2 

1020 

PRINTB6 : PRINTB$ : PRINTC$ 

treni 

17 


5) " ( 71 SPAZI}" 

: r em 

1 99 

1030 

NKXTI : PRINTB8 :FRINTBS : PRINTDS ; 


1 485 

PRINTTAB (25) M [ 5 SPAZI}" 

: rem 

50 



? rem 

16 

1490 

RETURN 

:rem 

174 

1 040 

RETURN 

i rem 

165 

1 500 

CH I PS * 0 : FOR 1-1 TG8 : L= 1 :V = 0: 

o 

n 

X 

X 


1050 

GOTOl 050 

: r em 

7 97 



t rem 

1 65 

1060 

PRI NTTAB £ 9 ) " f 2 GIU 1 ÌMEMORI ZZAZ IONE 






S PRITES " 

: rem 

136 

1 51 0 

V=V+OF(I) : IFXY+V> 700RXY+ V< 0THEN1 550 

1070 

FORI = 8 32T01 024 

: rem 

60 



: rem 

227 

1080 

RE ADA : PO KE I , A 

: rem 

69 

1 52 0 

IFBO (XY +V) =5THEN1 5 50 

: rem 

215 

1090 

NEXTI 

: rem 

82 

1 530 

IFBO (X Y+V) = 3-TUTHENXX* 1 :L = 

L+ 1 : GOTO! 5 

1 1 00 

POKE 2 04 0,15: POKE5 3 2 87 , 4 

: rem 

27 


1 0 

t rem 

164 

ino 

XFPEEK ( 1 461 6) =63THEN1 T 50 

; rem 

102 

1 540 

IFXX* 1 ANDBO (XY+V) -TUTHENGOSUB 1 570 


1 1 20 

POKE 56334, PEEK (56334) AND 2 5 4 : r em 

13 



: rem 

1 92 

1130 

POKE1 , PEEK (T) AND2 51 

t rem 

99 

1550 

NEXT 

t rem 

10 

1 1 40 

FORI = 0TO1 02 3 ; POKEI+1 4336, 

PEEK (1+5324 

1560 

RETURN 

: rem 

172 


8) ; NEXT 

: rem 

63 

1 570 

W= 1 : V»0 

: rem 

1 43 

11 50 

POKE1 , PEEK (1 ) OR 4 

: rem 

207 

1 580 

V= V+OF ( I ) : TA ( XY+V) =TU 

: rem 

73 

1160 

POKE 5633 4, PEEK (56334) OR 1 

i rem 

117 

1 590 

W*W+1 ; 1FW<-L- 1 TRENI 580 

treni 

86 

1170 

FORI = 1 4336+280TO1 4336 + 31 ! 

: rem 

96 

1 600 

CHIPS-CHIPS+W-1 : RETURN 

: rem 

236 

1 1 80 

RE ADA : POKE LA: NEXT 

:rem 

191 

161 0 

FORI =0TO7 1 

: rem 

112 

17 90 

PGKE53272, (PEEK (53272) AND240) +14 


1 620 

IFTA(I) -CORTA (I) =5THENl 720 

: rem 

47 



:rem 

236 

1630 

POKE64 6 , TU- 1 ;L=INT(I/9} 

: r em 

124 

1200 

RETURN 

.•rem 

163 

1 64 0 

POKE21 4, L* 3: PRINT 

: r em 

45 

1210 

POKE5 3 2 48, 32 : POKE53 2 4 9 , 58 

JPGKE53269, 

1650 

POKECO+4, 33 : POKECQ+ 1 , 1 0 : FORJ- 1 TOl 5:N 


1 

: rem 

98 


EXTJ 

: rem 

7 


1220 PRI NT" ( HOME } { 6 GIU ' H BLU } " ; TAB ( 2 5} " 
PREMI (NJ PER 11 : PRINTTAB (25) "PEDINE N 
ERE { 2 GIU* } " :rem 21 8 

1230 PRINTTAB (25) "PREMI (B) PER" : PRINTTAB 
(25) "PEDINE BIANCHE { 2 GIU'}** 

: rem 120 

1 240 PRINTTAB (25) "PREMI 1 SPAZ IO* " : PRINTTA 
B ( 2 5) " PER CASELLA" : rem 62 

1 24 5 PRINTTAB (25) "VUOTA" : rem 187 

1250 FORY=0TQ7:FORX~GTQ7 trem 15 

1 260 POKE532 4 8 , 32+X* 2 4 : POKE5 324 9 , 58+Y* 24 

i r em 191 

1 270 GBTA$:XY*X+Y*9 srem 118 

1280 IFA$*"B M THENWC=WC+1 :BO [XY ) -2 ìGOTOl 35 
0 itera 246 

1290 I FA$ - " N "THE NEC = BC+ 1 :BO(XY)-l : GOTO! 35 
0 srera 216 

1300 IFA$-" "THENPOKECO+4, 1 7:POKECQ+1 ,25: 
POR 1 = 1 T02 0 ; NEXT I ; POKECO+ 4 , T6:GOTOl 45 
0 : rem 207 

1310 U-U + 1 : IFU~6THENIJ=1 treni 139 

1 320 IFU* 1 THENSC=SC+1 : IFSC= 1 6THENSC“ 1 3 

r rem 1 T 7 

1 330 POKE2 04 0 , SC trem 126 

1340 GOTO! 270 :tem 203 

1 350 POKE64 6 , BO {XY ) - 1 tre m 181 

1360 POKECO+4, 33:POKECO+1 , 1 0 : FORJ- 1 TO50 t N 
extj trem 4 

1 370 POKECO+4, 32 ;FORJ = 1 5TO0STEP-1 : PO RECO + 
1,TsNEXT t rem 71 

1 380 POKE21 4,Y*3;PRINT : rem 59 

1390 PRINTTAB (X*3+l } jCHIPS t rem 22 

I 400 POKECO+ 4,33: POKECO+ 1 , T 0 : FORJ = 1 TOSO : N 
EXTJ :rem 255 

1410 FORESI T08 *rem 59 

1420 POKECO+4 , 32 : FORJ = 1 5TQQSTEP- 1 :POKECG+ 

1 f T:NEXT : rem 67 

1430 IFXY+OF (E) >- 1 THENPO (XY+0F ( E) ) -1 


50 SUPEBCOWMOOORE® 3/85* 



1 660 PO KECO+ 4 , 3 2 : FGRJ = 7 5TOG STEP - 1 : FGKECO+ 
1 , T: NEXTJ mem 147 

’ 670 PRINTTAB ( (I~9*L) *3+1 ) ; CHIPS srem 53 

1 680 POKECO+4, 33:POKECO+l , 1 0 : FORJ= 1 T07 5 :N 
EXTJ srem 10 

1690 POKECG+4, 32sFORJ-I 5TG0STEP-1 :POK£CO+ 
ì,TsNÉXTJ srem 150 

1700 BO ( I ) *TU srem 217 

1710 PO RECO +4 , 32 : FGRJ=1 5TOGSTEP- 1 SP0KEC0+ 
1 , T:NEXTJ : rem 1 43 

1 720 NEXT1 : rem 02 

1 730 RETURN :rexn 1 71 

1 740 FRI NT n { HOME } " ; FQRI> 3TG2 5 : PRINTS PC (25 
)"{ 15 SFAZ I } H t SNEXTI srem 58 

1 750 IFBOWCTHENMS - "NERO" ; HI = BC : LO=WC : GOT 
01 780 trem 1 38 

1760 IFSC<WCTHENM$ = ,f BIANCO" S HI = WG : LO=BC: G 
OTO1 780 t rem 1 

1 770 Tl =1 ; HI =BCs LO-WC :rem 251 

1780 Z-INT(Hl/6) :FORY=OTOZ:FORX-26TQ31 

; rem 1 62 

1 790 IFX+Y* 6- 2 6=HlTHENX-3 1 sGOTOl 840 

; rem 103 

1 300 P0KEC0+ 4 , 33 r PGKECO+ 1 , X+Y* 4 ; F0RJ = 1 T05 


0 ; NEXTJ : rem 220 

1 81 0 POKECO+4 F 32 : FQRJ- 7 5TQ0STEP- 1 ; POKECO+- 

1 , T : NEXT ; rem 70 

1 820 IFX+6*Y-26<BCTHENPOKEl 384+X+Y* 4 0 , 81 ; 

POKE556 56+X+Y* 4 0 , 0 : rem 169 

1830 IFX+6 * Y- 2 6< WCTHENPQKEl 384 +X+7+Y* 40 , 8 

1 ;POKES5656+X+Y*40+7,Ì :rerr 132 

1840 NEXT ; NEXT treni 133 

1360 FRI NT 11 { HOME } { 3 GIU 1 } T ' : IFTl =1 THENPRI 

NTTAB ( 28) "PATTA" : GOT0 1 880 : rem 2 42 


1 870 

PR1NTTAB (27) ;M$ ; " VINCE" 

: rem 

ì 42 

1 880' 

PRINTTAB(27)HI ; M A " ; LO 

: rem 

22 

1890 

FRI NT" { 5 Gl IT ì " sPRINTTAB (26) "ANCORA 


{ 2 SPAZilS/N" 

: rem 

23 

1 900 

GETA$ : ÌEA$ = "N "THENPQKB 198,0 

sSYSì 98 



: rem 

67 

1910 

IFA$ <> "S "THENl 900 

srem 

201 

1 920 

GOTO! 0 

:rem 

102 

ì 930 

HY= -32 000; POKE5 3269 , 0 

srem 

155 

1 940 

HI--32000:FORXY=OT071 

s rem 

8 

1 950 

IFBG (XY ) >OORPO (XY) =0THÉNNEXT S GQT02G4 


0 

srem 

181 

1 960 

GOSUB1 500:1 FCH I PS=0THENNEXT 

SGOTO2040 



srem 

T 0 6 

! 97 0 

TT=WC+BC S QW=TT/8 *CHI?S+PT ( XY ) * ( 65 

i-TT 


1/8 

srem 

194 

T 980 

IFLE“ 2 ANDCH I PS- A 1 THENQW =1 000 0 




: rem 

95 

1 9 90 

IFLE“ 2 ANDREC-OTHE NGGSUB21 1 0 

sNEXTs 

GOT 


02040 

srem 

161 

2000 

IFQW>HXTHENHI=QW:H1 *XY;NBXT 

SGGT02040 



srem 

1 92 

2 01 0 

IFHI = OTHENNEXTXY : GGT02040 

: rem 

1 68 

2020 

IFQW/HI > * 85 ANDQW/HI < 1 . 1 5THENZZ = INT (R 


ND (1 ) *2) S I FZ 2 = 1 THENH I " QW ; H 1 

=XY 




: rem 

31 

2030 

NEXT 

srem 

4 

2040 

IFLE-2ANDREC=1 thenreturn 

:rem 

127 

2050 

IF ( HI “-32 000 ANDLE=1 )OR(HY=- 

32000ANDL 


E= 2 ) THENFL^O SCHIPS = 0 

srem 

122 

2060 

XY=H1 

srem 

47 

2070 

IFLE=2THENXY-H2 

srem 

239 

2080 

GOSUB750 

srem 

230 

2090 

Y=INT{XY/9) i X=XY- Y* 9 

srem 

31 

21 00 

RETURN 

srem 

1 63 

21 1 0 

Al “AL : EGRE = 0 TO 7 1 

: rem 

222 

2120 

A (E) =BQ (E) 

s rem 

0 



21 30 

21 40 
21 50 
21 60 

21 70 
21 80 
21 90 
2200 
221 0 
2220 
2230 
2240 


2250 

2260 

2270 

2280 

2290 

2300 

2310 

2 320 
2330 
2340 
2350 
2360 
2370 
2380 
2 390 

2400 

2410 

2420 

2430 

2440 

2450 

2460 

2470 

2480 

2490 
2500 
2 51 0 
2520 
2530 
2540 
2550 
2560 

2570 
2 5 80 

2590 

2600 


IFTA ( E) >GTH£NB0 (E) ”TA ( E) : Al ^Al +1 


srem 99 


NEXTE 

s rem 

75 

FORO- 1 TG8 

: rem 

73 

IFXY+OF (Q) >- ì THENPG (XY+QF (Q) ) =PG (XY+ 

OF (Q) ) +1 

s rem 

21 3 

NEXTQ 

: rem 

90 

BO ( XY } -TU 

s rem 

68 

NW=QW : REC=1 : Yl -XY 

i rem 

1 38 

TU = 3 -TU : GGS UB 1 94 0:REC=0 

; rem 

1 88 

QY=NW-HI :TU= 3 -TU 

i rem 

56 

IFQY>HYTHENHY-GY:H2=Y1 

:rem 

16 

IFHY-0THEN2250 

s rem 

^92 

IFQY/HY> . 85ANDQY/HY< 1 . 1 5THENZZ” INT ( R 

ND(1) *2) ; I FZ Z = 1 THENHY-QY 

:H2=Y1 



: rem 

51 

XY = Yl 

: rem 

65 

FORE= 0TO70 

s rem 

1 09 

BO (E) =A (E) SNEXT 

s rem 

727 

GOSUB750 

s rem 

232 

FORCAI T08 

: rem 

78 

I F Yl +OF (Q ) < 0THÉN2 330 

: rem 

7 63 

IFPO (Yl +OF (Q) ) = 2THENPQ (Yl +OF (Q) ) 

= 1 : G 

OTD2330 

: rem 

84 

PO (Y 1 +OF {Q ) ) -0 

: rem 

1 6 

NEXTQ 

; rem 

88 

RETURN 

: rem 

1 69 

IFXY = 7THEN2 410 

s rem 

1 1 6 

IFXY=63THEN2440 

s rem 

170 

IFXY = 70THBN24 70 

: rem 

172 

FORI = 9TO 1 3 s PT ( I ) - 1 5- 1 : NEXT s rem 

1 32 

FORI = 1 TG3 7STEP9 : PT ( I ) = 6 - 

INTU/9) 

sNEX 

T 

: rem 

108 

RETURN 

s rem 

166 


POR I = 6TG4 2STE P 9 s PT ( I ) =6-INT(I/9) s NEX 
T :rem 102 

FORI-1 6T01 2STEP-1 :PT(Il - I-10:NEXT 

: x em 65 

RETURN : rem 1 69 

POR l = 5 4T05 8 : PT ( I ) -60-1 : NEXT : rem 1 86 
FGR I ” 64 T028STEP- 9 ì PT ( I ) =INT ( 1/9) -1 sN 
EXT irem 202 

RETURN : rem 172 

FORI =61 TO 5 8 STEP- 1 SPT(I) =I-55:NEXT 

:rem 89 

FOR 1 = 6 9 T03 3 STE P - 9 : PT ( I ) =INT£l/9) -1 sN 


EXT 

: rem 

206 

RETURN 

srem 

1 75 

FORI = 1 TG8 

srem 

64 

RE ADA 

s rem 

37 

OF [I) =AsNEXT 

: rem 

239 

FGRX= QT071 

: rem 

1 29 

READAsPT (X) =A , 

» srem 

45 

REXTX 

s rem 

9 9 

FOR I - STO 7 7 STEP 9 ; BO ( I ) 

= 5 ; NE XT 



srem 

66 

FORI = COTOCO+ 2 4 s POXE I , 

0; NEXT: rem 

26 

POKECO+5, 1 30 : POKECO+6 

# 66 s PQKECO+2 4 , 1 

5 

: rem 

7 94 

RETURN 

: rem 

1 76 

DATA- ,1 , 8 , 

9,10 srem 

208 
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261 0 

DATAI 6,-8, 5,2, 2, 5,-8, 16,0, 

B f -12 

I - 2 r 


-2, -2, -2, -12, -8,0 

; rem 

251 

2620 

DATA 5 ,-2,3, 2 , 2 , 8 , — 2 , 5*0, 2 , 

-2,2,1 

,1,2 


i-2 1 2/0 

:rem 

20 

2630 

DATA 2,-2, 2,1 , 1 , 2,-2, 2,0, 5, 

-2,8,2 

,2,8 


,-2,5,0 

: rem 

21 

2640 

DATA -8,-1 2 , - 2 , - 2 f - 2 , - 2 , - 1 2 

,_8,0, 

16,- 


3,5, 2, 2,5, -8, 16,0 

: rem 

254 

2650 

DA TAO, 0,0, 0,0, 0,0,0 

: rem 

155 

2660 

DA TAO ,0,0,0,15,240,0,15 

: rem 

no 

2670 

DATA 240,0, 12,48,0, 12,48,0 

: rem 

225 

26H0 

DATA 12,43,0, 12,48,0, 15,240 

: rem 

24 

2690 

DATA 0,15, 240,0,0, 0,0,0 

: rem 

59 

2700 

DA TAO ,0,0, 0,0, 0,0,0 

; rem 

151 

271 0 

DATA0 , 0,0,0, 0,0, 0,0 

; rem 

152 

2720 

DATA0, 0,0,0, 0,0, 0, 235 

: rem 

3 

2730 

DATA0 , 0,0,0,0,0,63,252 

: rem 

60 

2740 

DATAO, 63, 252,0, 48, 12,0,48 

: rem 

2 32 

2750 

DATAI 2,0,48, 12,0,48, 1 2,0 

: rem 

173 

2760 

DATA 4 8 , 12,0,48, 12,0,48,12 

: rem 

234 

2770 

DATAO ,48, 1 2,0,63,252,0,63 

t rem 

232 

2780 

DATA252, 0,0, 0,0, 0,0,0 

: rem 

8 

2790 

DATAO ,0,0, 0,0, 0,0,0 

: rem 

160 

260 0 

DATAO, 0,0,0, 0,0,0, 235 

: rem 

2 

2610 

DATA? 55, 255, 0,255, 2 55, 0,1 92, 3 




irem 

1 84 

2620 

DATAO, 192, 3,0,1 92, 3, 0, 1 92 

:rem 

228 

2030 

DATA3,0, 192, 3, 0, 1 92,3,0 

: rem 

1 24 

2640 

DATAI 92, 3,0, 192, 3,0,192, 3 

; rem 

233 

2850 

DATAO, 192, 3, 0,1 92, 3, 0,1 92 

: rem 

231 

2860 

DATA3,0, 255, 255,0, 255, 255, 

0 : rem 

81 

2870 

DATAO, 0,0, 0,0,0, 0,0 

; rem 

1 59 

2880 

DATAO ,0,0, 0,0,0, 0,8 

: rem 

168 

2890 

DATA 6 3 ,63,63,63,31 ,15,7,0, 

0: rem 

82 

2900 

DA TA2 52, 2 52, 252,24 8, 24 0, 22 4,0, 0 




: rem 

16 

291 0 

DATAO, 0,7, 15, 31 ,63,63,63 

: rem 

182 

2920 

DATAO, 0,224, 240, 248, 252, 252, 252 




: rem 

T 8 

2930 

DA TAl ,1 ,1 ,1 ,1 ,0,0, 1,1 ,0,0, 

1,1,1, 

1,1 



:rem 

136 
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Comm 


Per c 


Arriva un home computer 
favoloso, l’ideale per iniziare 
subito e meglio. 

Commodore 16: nuovo, 
grintoso, portentoso... e 
niente costoso. Commodore 
16 è completo, versatile, 
potente (usa il BASIC 3.5, la 




versione più potente del 
linguaggio; è utile per 
sviluppare l’apprendimento 
del linguaggio del futuro. 

È facilissimo da usare, è 
divertente e ti dà una mano a 
risolvere un sacco di 
problemi. 


Commodore 16 è un 
“super-Vic" per quanto 
riguarda la capacità, la 
memoria (16H), le prestazioni. 

È anche un videogioco 
superbo, con grafica in atta 
risoluzione , due generatori di 
suono incorporati, entu- 


p 

siasmanti cartucce giochi. 

Commodore ti fa scegliere. 
Commodore Italiana S.pA. 
tei. 02/618321. 



Commodore 

COMPUTER 


GRUPPO ETHOS 





Qtt està breve ronfine io linguag- 
gio vacchine «spende un carat- 
tere* facendolo apparire sullo 
scherno quattro volte piè gran- 
de rispetto alla visura normale. 

I caratteri giganti possono com- 
porre titoli o essere usati per 
una grande varietà di altri scopi. 

II programma, che presentiamo 
nelle due versioni per C6I e VIC 
20, è compatibile con tutte le 
stampanti Commodore. 


C aratteri giganti possono servire per 
comporre titoli, per insegnare ralfa- 
beto ai bambini in programmi educativi 
o per molte altre cose ancora. Potreste 
costruire tali caratteri per mezzo dei 
simboli grafici disponibili sulla tastiera 
del vostro computer, ma per fare ciò 
sono necessarie molte prove e molto 
tempo; inoltre creare un intero alfabeto 
comporterebbe un grande spreco di me' 
moria. 

]| modo piu semplice per mostrare una 
lettera enorme, senza fare prove labo- 
riose o usare molta memoria, è quello 
di leggere, tramite istruzioni PEEK, 
l'area di memoria ROM generatrice di 
caratteri e stampare uno spazio pieno 
(cioè in reverse) per ogni bit che vale 
1; se invece IJ bit vale 0, si stampa uno 
spazio semplice. Lo svantaggio prtnd- 
pale di questo metodo è che ogni carat 
te re visualizzato sarebbe otto volte piu 
grande dì uno normale, occupando 
un'area di ben 64 spazi, che è decisa- 
mente eccessiva: sullo schermo del VIC 
infatti non si riuscirebbe a stampare più 
di quattro lettere! Per aggirare questo 
problema (mantenendo comunque 
ridea dì leggere la ROM) possiamo tut 
tavia utilizzare alcuni caratteri grafici, 
come vedremo nel prossimo paragra 

fOr 

I caratteri "quarto di 
quadrato” 

Provate a battere la sequenza 
IKBVDCF tenendo premuto il tasto 
Commodore. 1 sette caratteri che appa- 
iono sullo schermo, assieme allo spazio, 
formano metà del set grafico “quarto di 


quadrato"; l'altra metà si ottiene pre 
mende gli stessi tasti in modo reverse. 
Abbiamo così in totale 16 caratteri, uno 
per ogni possibile combinazione dei 
quattro “quarti di quadrato" accesi o 
spenti. 

Questi simboli grafici ci permettono di 
costruire uno schermo a media risolu- 
zione, meno complicato da programma 
re di quello ad alta risoluzione e in ogni 
caso piu potente del sistema a bassa 
risoluzione illustrato precedentemente. 
Invece di comandare l'accensione di ca- 
ratteri interi, si controllano dei grandi 
“pixel" (punti dello schermo), ognuno 
dei quali è grande un quarto di un carat- 
tere intero. In tal modo lo schermo di 
un VIC 20 acquista una risoluzione di 


44x46 “megapuntf (ognuno dei quali 
è composto da 4x4-16 pixel), mentre 
la risoluzione di un C64 diventa 80x50. 
Questo è il concetto su cui è basato il 
programma che vi presentiamo. Il pro- 
cedimento seguito consiste nel leggere 
la ROM dei caratteri e tradurre ogni bit 
in un “megapunto", stampando il corri- 
spondente carattere grafico “quarto di 
quadrato". Si potrebbe farlo in BASIC, 
utilizzando una gran quantità di PEEK 
e di POH E, ma il linguaggio macchina 
è decisamente più veloce ed elegante. 
Il programma è facile da usare: dopo 
averlo digitato e salvato, battete RUN. 
Una breve routine in linguaggio macchi- 
na viene memorizzata tramite istruzioni 
POKE; per attivarla dovete effettuare 
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due POKE e un comando SYS: 

POKE 249,0 : POKE250,! : SYS828 

A questo punto dovrebbe apparire una 
grande “A" maiuscola, larga quattro ca- 
ratteri e altrettanto alta. Provate ora a 
premere simultaneamente Commodore 
e SH1FT per ottenere II set minuscolo, 
tornate col cursore sulla linea conte ne n 
te le POKE e premete RETURN; in tal 
modo apparirà una grande “a" minu- 
scola. Se poi modificate in 129 il valore 
memorizzato nella locazione 250, allora 
la lettera gigante apparirà in reverse. 
Una volta che avete salvato il program 
ma, e lo avete fatto girare, battete NEW 
per cancellarlo (ciò non influirà sulla 
routine in linguaggio macchina, che è 
memorizzata nel buffer di cassetta). Di- 
gitate le seguenti linee: 

10 MK-7:REM - PER IL VJC 20 

MK-3 

20 PRlNrfCLRp; 

30 FORX=0TO255 
40 Y~(XANDMK)‘4:POKF249.Y 
50 IFXANDMK THENPRINT 1 [4 SU]”; 
60 POKE250XSY582S 
70 IMEXT 

Battete RUN e Finterò set di caratteri 
Commodore sfilerà sullo schermo. At- 
tenzione: non potete salvare questo 
programmino di esempio su nastro, in 
quanto ogni operazione effettuata usa n 
do il registratore cancella la routine dal 
buffer di cassetta. 

La parte alta del carattere gigante com- 
pare nella posizione in cui si trova il 
cursore al momento in cui viene esegui- 
to il comando SYS; il valore memorizza- 
to tramite POKE nella locazione 249 
determina di quanti spazi deve avanza 
re il cursore prima della stampa. Que- 
sto numero deve essere compreso tra 

0 e 1 7 con il VIC oppure tra 0 e 35 con 

11 C64. 

Il numero che dovete poi memorizzare 
nella locazione 250 è invece 11 codice di 
schermo (non il codice ASCII!) del ca- 
rattere che volete stampare I valori tra 

1 e 26 sono le lettere A Z, da 48 a 57 
abbiamo le cifre 0-9, e gli altri valori 
inferiori a 128 corrispondono ai rima- 
nenti simboli sulla tastiera. Da 128 a 
255 ci sono gfi stessi caratteri in rever- 
se; ad esempio, se volete una S dovete 
usare il codice 19, mentre per ottenere 
la S in reverse bisogna usare il codice 
19+128-147. 

Dopo aver effettuato le POKE nelle lo- 
cazioni 249 e 250 digitate SYS 828 e 
il carattere gigante apparirà istantanea- 
mente. 


Tre vantaggi e un 
Inconveniente 

Il programma in linguaggio macchina fa 
apparire sullo schermo gli appropriati 
caratteri Squarto di quadrato", usando 
la routine PRINT (indirizzo $FFD2) del 
sistema operativo Kernat e non memo 
rizzando direttamente i caratteri nella 
mappa di schermo. Con questo metodo 
è necessario commutare più volte tra 
RE VERSE ON e REVERSE OFF duran- 
te la stampa, e ciò rende l'operazione 
piuttosto laboriosa. Tuttavia ci sono dei 
grossi vantaggi usando la routine in 
5PFD2: vediamoli. 

Il primo consiste nel fatto che la versio- 
ne per II V1C 20 non deve tener conto 
di quali espansioni di memoria siano 
eventualmente connesse. Se invece uti- 
lizzassimo la mappa di schermo, an- 
dremmo incontro a grossi problemi, poi 
che essa viene ri locata usando alcune 
espansioni. 

Un altro vantaggio é che i caratteri gi- 
ganti possono essere inviati ad una 
qualsiasi stampante Commodore, effet- 
tuando solo un piccolo cambiamento 
nel programma die memorizza la routi- 
ne (vedi la linea 951 nel programma del 
C64 e la linea 923 in quello del VIC); 
questo cambiamento consiste nel sosti- 
tuire un valore in un'istruzione DATA, 
in modo tale che per posizionare la let 
tera gigante vengano stampati degli 
spazi anziché dei cursori a destra. Per 
azionare la stampante digitate 

OPEN4,4: CMD4: POKE249,xx: PO- 
KE250,yy: SYS828 

Ricordatevi di sostituire a xx la posizio- 
ne in cui volete che avvenga la stampa 
e a yy il codice di schermo. Se potete, 
regolate a zero la spaziatura tra le righe 
della stampante, In modo che non ci sla 
spazio tra i caratteri grafici che compon 
gono la lettera gigante Quando avete 
finito di stampare usate le istruzioni 
PRINT #4:CLO$E4 per chiudere cor- 
rettamente il canale con fa stampante. 
Sfortunatamente le stampanti non con- 
sentono movimenti di cursore verso l'ai- 
to, per cui è possibile stampre un solo 
carattere gigante per riga Per aggirare 
questa limitazione potreste muovere 
manualmente la carta all* indietro, op- 
pure usare un programma che stampi 
su carta una copia del contenuto dello 
schermo. 

Il terzo vantaggio è dato dalla flessibilità 
della routine PRINT del Kernal: potete 
stampare lettere giganti in qualsiasi 
punto dello schermo e con qualsiasi co 
lore (semplicemente modificando il co- 
lore del cursore). È infine possibile an- 


che mescolare caratteri maiuscoli, mi- 
nuscoli e simboli grafici nella medesima 
schermata. 

L'unico piccolo inconveniente è che 
ogni riga termina con un carattere CR 
(a capo), e a causa di ciò non è possibile 
stampare una lettera gigante all'estre- 
mità destra dello schermo. 

Come funziona 

Il programma BASIC comprende due 
cidi di istruzioni POKE. fi primo memo- 
rizza nelle locazioni 688-703 i codici 
ASCII modificati dei caratteri grafici 
“quarto dì quadrato". I valori sono mo- 
dificati perché contengono un flag (il bit 
6) che, se vale 1 , segnala che il caratte- 
re deve comparire in re ver se; infatti il 
codice ASCII (a differenza di quello di 
schermo) non distingue tra i caratteri 
normali e quelli in reverse. Prima di 
stampare il carattere il bit 6 viene posto 
a zero effettuando un AND del codice 
con $BF (191). 

Il secondo ciclo memorizza la routine in 
linguaggio macchina nell'area che inizia 
dalla locazione 828 (quindi nel buffer di 
cassetta). La routine è scritta In modo 
da poter essere ri locata: se avete biso- 
gno del buffer per un altro programma 
in linguaggio macchina, oppure se avete 
la necessità di usare il registratore, allo- 
ra potete memorizzare la routine in 
qualsiasi altra zona di RAM {il primo 
ciclo non può però essere spostato). Se 
usate la memoria BASIC, fate attenzio- 
ne a proteggere la routine contro una 
eventuale cancellazione da parte dei 
programmi BASIC, 

Per chi si interessa di linguaggio macchi- 
na diamo una breve spiegazione del fun- 
zionamento della routine. Innanzitutto 
viene stabilito quale set di caratteri si 
usa (maìuscolo/grafìco oppure minu- 
scolo/maiuscolo}, modificando di con- 
seguenza un puntatore in jagina zero. 

Il valore del codice dì schermo viene 
quindi moltiplicato per 8 e addizionato 
al punlatore, ottenendo l'Indirizzo rela- 
tivo al carattere desiderato, A questo 
punto i byte della ROM-caiatteri vengo- 
no letti due per volta; effettuando alter- 
nativamente degli shift a sinistra dei by 
te (ASL) e delle rotazioni a sinistra del- 
F accumulai ore (ROL), viene generato 
un numero compreso tra 0 e 15, che 
serve ad indicare (puntando all'elemen- 
to appropriato della tavola 688-703) 
quale dei 16 caratteri “quarto di qua- 
drato") debba essere utilizzato. Succes 
sivamentre si testa il bit 6 (re verse si/ 
no) ed infine viene effettuato un JSR 
SFFD2 per stampare il carattere. La 
routine ricomincia quindi il ciclo per ri- 
cavare i successivi bit da decodificare. 


Caratteri giganti 
versione per VIC 20 

1 0 T= 0 : FORJ = 6 88T07Q 3 : READK : T=T+K: POKEJ » K : 

NEXT : rem 1 34 

T 5 IFTO 3078THENPRI NT"ERRORÉ NELLE 
{ 10 SPAZI] ISTRUZIONI DATA": END 

: rem 31 


20 T= 0 : FORJ = 828T0978 : READK ; T=T+K: POKEJ f K : 

NEXT srem 145 

2 5 IFTOl 72 89THENPRINT n ERRORE NELLE 
( 10 SPAZI) ISTRUZIONI DATA": END 

; rem 89 

30 POKE249, 0 ; rem 141 
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;rem 

148 

252,96 


srem 

158 

srem 

46 

:rem 

31 

: rem 

32 

:rem 

28 

: rem 

19 

: rem 

40 

: rem 

36 

srem 

26 

: rem 

34 

: rem 

36 

: rem 

39 

: r em 

30 

srem 

24 

srem 

28 

srem 

19 

srem 

118 


688 DATA32,188,19Q, 226,172 , 225,191 ,251 

srem 

696 DATAI 87, 255, 161 , 236, 1 62 , 254 , 252, 96 

sre 

828 DATA169, 128,133, 004, 173,005 sre 
834 DATAI 44,041 ,002,240,004,169 :re 
840 DATAI 36, 1 33, 004 , 1 69,000,1 62 
846 DATA003, 006, 250,042,202,208 : re 
852 DATA250, 024, 101 ,004,133,004 sre 
8 58 DATAI 65, 250,1 33, 003 ,169,000 : re 
864 DATAI 33, 250, 16 9,005,133,002 : re 
870 DATAI 60, 000, 177,003,1 33,005 sre 
876 DATA2 30 , 003, 177,003, 1 33,006 : re 
082 DATA230, 003, 198, 002, 240,028 : re 
888 DATAI 62, 004, 1 69,000,006,006 :r<= 

8 94 DATA04 2, 006, 006,04 2,006,005 : re 
900 DATA 042,006, 005, 042, 1 64, 250 sre 
906 DATAI 53,048,002,230,250,202 sre 
912 DATA208, 232, 240,210, 160,000 ; rem 
918 DATAI 66, 249,240, 008,1 69 
92 3 DATA029 : REM 032 USANDO LA STAMPANTE 

: rem 1 0 

924 DATA 032,21 0, 255, 202, 208, 250 :rem 30 

930 DATAI 69, 004 , 133,006,1 85,048 srem 45 

936 DATA002, 170, 189,176,002, 133 srem 43 

942 DATA005, 041 ,064,240,005,1 69 : rem 36 

948 DATACI 8,032, 21 0, 255, 165,005 srem 41 

954 DATA041 ,191 ,032,21 0,255,169 : rem 44 

960 DATAI 46,03 2, 21 0,2 55,200, 198 :rem 40 

966 DATAOD6, 208, 221 ,169,013,032 :rem 41 

972 DATA210,255, 192,016, 208, 196 srem 52 

97 8 DATA096 :rem 97 

1000 PRI NT" {CLR } { 2 GIU' HbLU}X = NUMERO 

(0-17)" : rem 231 

1001 PRXNTMGIU 1 ]* » NUMERO (0-255) * 

: rem 90 

1 003 PRI NT * 1 { 4 GIUMPOKE 249, X (POSIZIONE 
) *:PR1NT I, (GIU I ÌPOKE 250, Y (CARATTERE 
) ** : rem 1 43 

1004 PRINT”(GIU' }SYS828 PER ATTIVARE” 



Caratteri giganti 
versione per C64 

1 0 T=0 s FORJ®68 8T0703 : READKS T=T+K: POKEJ , K ; 

NEXT srem 134 

15 I FTO 3 0 7 8THENP RI NT 14 E RRQRE NELLE ISTRU2 
IONI DATA" : END : rem 31 

20 T= 0 : FORJ = 8 28TOÌ 006 sREADK: T-T+K : POKEJ , K 
sNEXT srem 176 



2 5 IFTO20306THENPRINT"ERR0RE NELLE ISTRU 

Z IONI DATA": END 

3 0 PQKE2 4 9,0 


828 DATAI 69, 208, 1 33,004, 1 73,024 
834 DATA208, 041 ,002, 240,004, 1 69 
840 DATA2 1 6, 1 33,004, 1 69,000, 1 62 
846 DATA00 3 ,006, 250, 042, 202, 208 
852 DATA250,024, 101 ,004, 133,004 
858 DATAI 65, 250, 1 33, 003, 1 73, 014 
864 DATA220, 041 ,254,141 ,014,220 
870 DATA165, 001 ,041 ,251 ,1 33,001 
876 DATAI 69,000, 1 33, 250, 1 69,005 
882 DATAI 33,002, 160,000, 177,003 
8 8 8 DATAI 33, 005, 230, 003, 177, 003 
894 DATAI 33,006,230,003,1 98,002 
900 DATA240, 028, 162, 004, 169,000 
906 DATAQ06, 006,042, 006, 006, 042 
912 DATA00 6 ,005, 04 2, 006, 00 5, 042 
91 8 DATAI 64,250,1 53,048,002,230 
924 DATA2 50,202, 208, 232, 240, 21 0 
930 DATAI 65,001 ,009,004,1 33,001 
93 6 DATAI 73, 01 4, 220, 009, 001 ,1 41 
942 DATA0) 4,220, 160,000, 1 66,249 
948 0ATA2 40,008, 1 69 

951 DATA02 9 : REM 032 USANDO LA STAMPANTE 

: rem li 

952 DA TAO 3 2,210 srem 14 

954 DATA2 55,202, 208, 250, 1 69, 004 srem 45 

960 DATAI 33,006, 185,048,002,770 :rem 38 

966 DATAI 89, 1 76,002,1 33,005,041 srem 46 

972 DATA0 64 , 240,005, 1 69,01 8,032 ;rem 43 

978 DATA21 0, 255, 1 65, 005, 041 , 191 Stem 46 

984 DATA032, 21 0, 255, 1 69, 1 46,032 srem 47 

990 DATA210, 255,200, 198, 006,208 :rem 43 

996 DATA221 f 169,01 3,032,210,255 srem 43 

1 002 DATAI 92,01 6,208, 196,096 srem 153 
1 003 PRINT"{CLR}( 5 GIU * } ( WHT } "TAB ( 9) ” X = 

NUMERO TRA 0 E 35" : rem 86 

1004 PRINTTAB{9) "(GIU 1 }¥ = NUMERO TRA 0 E 

255" srem 108 

1005 PRINTTAB(9) "{ 3 GIU* }P0KE249,X 

( 2 SPAZI} (POSIZIONE) " : rem 142 

1006 PRI NTTAB { 9 } "(GIU 1 } FOKE 2 50 , V 

{ 2 SPAZI} (CARATTERE) ” : rem 65 

1 00 7 PRI NTTAB { 9 ) "(GIU* } SYS 8 2 8 { 2 SPAZI } PE 
R ATTIVARE £ 2 CIUM* :rem 21 


s rem 

73 

:rem 

141 

91 ,251 


: rem 

148 

252,96 


srem 

158 

srem 

46 

srem 

32 

s rem 

31 

srem 

28 

srem 

19 

: rem 

40 

s rem 

27 

: rem 

23 

: rem 

46 

: rem 

26 

s rem 

36 

srem 

36 

: rem 

28 

srem 

25 

: rem 

20 

srem 

38 

srem 

26 

srem 

20 

srem 

28 

srem 

33 

srem 

229 
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di F.J* Tyniw 

trad, ed adatt. 

di 3. Anticoli c M. Alberelli 


In questo gioco bisogna colpire, 
mediante una pallina vagante, 
dei bersagli in numero selezio- 
nabile. 


P remendo il tasto recante la freccia 
rivolta a sinistra verrà visualizzato 
uno ' specchietto” inclinato. La stessa 
funzione è assolta dal tasto 'FI' che, 
però, visualizza uno “specchietto” indi* 
nato nella direzione inversa rispetto a 
quella visualizzata premendo la freccet* 
ta. 

Quando la pallina tocca uno dì questi 
“specchietti” viene riflessa di 90 gradi 
in una direzione che varia a seconda 
delf orientamento dello ^specchietto”. 
Se la pallina colpisce un bersaglio, ven- 
gono guadagnati 10 punti. 

Ogni volta che la pallina viene riflessa 
da uno specchietto viene sottratto un 
punto dal punteggio finora totalizzato. 
In questo gioco è anche possibile can- 
cellare tutti gli specchietti presenti sullo 
schermo, premendo il tasto recante il 
simbolo della Lira. 

Attenzione, però, perché per ogni spec- 
chietto cancellato vengono sottratti 5 
punti dal punteggio totale e perciò que- 
sta opzione è meglio utilizzarla il meno 
possibile. 

AlFinizio del programma è possibile 
spostare lo schermo nelle quattro dire* 
rioni cardinali, in modo da centrarlo 
perfettamente sul proprio televisore. 

E allora .buona rimbalzata! 



Deflector per V1C 20 


1 0 PBINT'MCLRj 11 :TE=208:J*3:BC=36B79:VO*BC 
-1 :S4=BC- 2 : S3-BC- 3 : S 2*BC- 4 : S 1 ~BC- 5 


;rem 4 

20 QOSUB63 000 : POfCEBC , 93 ; V* 1 5 :rem MB 

122 PHINT” {GIU * IISTRUZ IONI (DES}7 (S/N) " 


1 23 
1 25 
1 30 
140 
1 42 

144 

146 



: rem 

20 

GETV$ s IFV$ = ,M, THEN! 23 

: rem 

121 

lFV$="S n THENGGSUBl 000 

: rem 

229 

PRINTMCLR} m CHR5 [142) 

: rem 

225 

K=0 : T-0 :CL* 5 

: rem 

131 

INPUT" iGItT ÌQOAMTI BERSAGLI 

**; J: J = 

ARS ( 

J) 

: rem 

78 


IFJ>50 6tHENPRINT ,, TROPPII 1 !" :GGTG7 42 

: rem 150 

I F J < 1 OQRJ >200 THE NPR1 NT* 1 (GIU 1 ) BRAVO! G 
I US TA IDEA” : rem 88 


155 

FORICI TOl 0 00 ì tfEXT : PRT NT 

'** [ CL R } ” : GOS UB7 


000 

i rem 

53 

1 57 

SS = 76 80 ;SR- 3 8 4 00 

: rem 

112 

160 

FORICI TOJ 

: rem 

34 

1 70 

A* INT [ SO 6* RND ( 1 ) ) 

; rem 

1 25 

180 

IFPEEK ISS+A) =TRTHEW1 70 

: rem 

90 

7 85 

PGKES, 0:PQKES, 0 

; rem 

148 

190 

POKESS+A , TR : PQKBSR+A , 6 : 

GOSUB4300 




: rem 

10 

200 

NEXTI 

; rem 

26 

205 

POKES2 , 0 : POKES , 0 

: rem 

191 

21 0 

A=ÌNT(506*RND (1 > ) 

: rem 

1 20 

230 

l)= A+SS 

;rem 

57 

240 

DI ” 1 :IFRND(1 ) > , 5THENDI = 

- 1 : rem 

184 

300 

GETX$ 

: rem 

239 

310 

IFXS <> " "THEN60 0 

: rem 

34 

320 

tfE=U+Dl 

: rem 

1 1 4 

330 

IFABS (DI) *1 THEN4 3 0 

: rem 

1 3 

340 

IFDI >0THEN 380 

: rem 

235 
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350 IFNE<SSTHENDI*-DI :GOSUB60QG :GOTO320 

:iem 215 

355 A=NE :rem 174 

360 IFPEEK (A) =77THENDI^-1 :NE*NE-1 

:tem 220 

370 IFPEEK (A) -78THENDI = 1 :NE-NR+1 ;GOTO530 

; rem 1 86 

375 GOTOS30 :rein 112 

360 IFNE>SS+506THENDI=-DI : GOSUB6000 : GGT03 



20 

: rem 

162 

390 

A a NE 

: rem 

173 

400 

IFPEEK(A}=77THENDI=1 :NE-NE+1 

: rem 

168 

410 

IFPEEK (A) -78THENDI =- 1 :NE=NE- 

■1 




; rem 

217 

420 

GOTO 530 

: rem 

103 

430 

IFDI>0THEN490 

: rem 

237 

440 

IENE- 22* INT( NÉ/22 } =1 THENDI”- 

DI : GOSUB6 


200 :GOT032 0 

: rem 

130 

4 50 

A 3 NE 

: rem 

170 

460 

IFPEEK (A) =?7THENDI=-22 iNE«KE+DI 




: rem 

106 

470 

IFPEEK (A) = 7 8THENDI S 22 : NE- NE+DI 




: rem 

63 

480 

GOTO 530 

: rem 

109 

490 

IFNE-22*INT (NE/22) - 2THEND I - - 

DI : GOSUB6 


2 0 0 : GOTO 3 20 

: rem 

136 

500 

A» NE 

:rem 

166 

510 

IFPEEK (A) =77 THEND 1 = 22: NE= NE+D t 




:rem 

57 

520 

IFPEEK (A) =7 8THENDI = - 22 : NE "NE+DI 




: i em 

104 

530 

POKEU , 32 

:rem 

173 

54 0 

IFPEEK (NE) -32THENPOKENE, 81 :0-NE:GOTO3 


00 

: rem 

190 

550 

IFPEEK (NE) =TRTHENK= K+ 1 :SC*SC+1 0 




:rem 

162 

552 

IFPEEK (NE) -TRTHRNGOSUB5 00 0 

: rem 

139 

555 

POKENE ,170: D-NE : FORICI TD2 5 : NEXT 




: rem 

223 

560 

IFK> J- 1 THEN700 

:rem 

33 

570 

GOTO30Q 

:rem 

104 

600 

I F X? = " "THENA- 7 8 : GOT06 3 0 ; 

rem 

} 69 

610 

1FX$="{FÌ }"THENA=77:GOTO630 

: rem 

207 

61 5 

I F X$ - " ~ "THENGOS UB 2 000 

: rem 

245 

61 6 

IFX$="Q"THEN990 

; rem 

75 

620 

GOTQ320 

:rem 

1 02 

625 

GOSUB4600 

: rem 

231 

630 

IFPEEK (U+DI) ^32THENPOKEU + DI , 

A :SL* 

SL+1 


: SC=SC * 1 

: rem 

55 

640 

GOTQ300 

: rem 

1 02 

700 

REM 

: rem 

1 23 

71 2 

PRINT" f CLR) ** : PQKEBC ,125 

:rem 

176 

715 

I FSC > KS THENHS =SC : PRI NT" ( RVS ] NUOVO 

lì » 

¥ 



: rem 

39 

716 

PRI NT”RECORD : "HS "{SIN} " 

: rem 

228 

717 

PRINT" { 6 SPAZI } LA PALLINA" 

: rem 

254 

720 

PRINT" [GIU 1 }HA PRESO "SL" * SPECCHI 1 

II 



: rem 

1 89 

730 

PRINT "{GTU 1 }HA PRESO" J "BERSAGLI " 




:rem 

1 01 

905 

PRINT" (GIU 1 } PUNTEGGIO: ";SC 

: rem 

61 


910 PRINT" { 2 GIU' } ANCORA (S O N} " 

;rem 130 

920 GETW$ : I FW$ = " "THEN9 2 0 : rem T33 

92 5 IFW$- t *H w THEN990 : rem 74 

926 SL=Q:St>0 : rem 234 

930 PR1 NT ;P RI NT ,T QUANTI BERSAGLI INPUT J 

; rem 158 

94 0 J * AB S ( I NT ( J ) ) ; rem 20 9 

960 PRINT" {CLR } " : POKEBC ,93: GOSUB70 00 : K-0 : 

T=0 : GOTOl 55 :rem 5 

990 PRINT" {CLR} " : POKEBC , 2 7 ;END : rem 154 
1 000 PRINT" {CLR}* 1 ;rem 37 

1010 PRtNTCHR9(l4) 3 SPAZI } L T OBB 1ETTIV 

Di 2 SPAZI} DI" ~ : rem 252 

1015 PRINT" { 2 SPAZI} QUESTO GIOCO E* DI" 

: rem 227 

1020 PRINT" { 2 SPAZI} MANDARE LA PALLINA" 

: rem 26 

1025 PRINT " { 2 SPAZI JCONTRO t{ 2 SPAZI }BE 



RSAGL I " 

: rem 

0 

1030 

PRINT" USANDO 'FI ' 

{ 2 SPAZI) B * * 

PER 


N - 
1 

: rem 

184 

1035 

PRINT" CREARE GLI 

♦SPECCHI * " 

: rem 

117 

1 040 

PRINT" E PER 

CANCELLARE" 

: rem 

54 


1 04 5 PRINT" GLI 1 SPECCHI 1 { 2 SPAZI] DALLO" 

: rem 43 

1050 PRINT" { 7 SPAZI} SCHERMO-" :rem 214 

1083 PRINT" { 2 GIU 1 ) PREMERE UN TASTO .... 

" : rem 181 

1090 GETB$:IPB$=“"TKENÌ 090 ;rem 185 

T 1 00 PRINT" f CLR] { 2 SPAZljPER OGNI BER5 AG 
LIO* stero 82 

1110 PRI NT" COLPITO SI CONQUISTANO"; 

srem 217 

1120 PRI NT" 10 P. TI , 1 P.TO VIENE"; 

: r em 65 

1130 PRINT" { 2 SPAZI} SOTTRATTO PER OGNI" 

: r em 126 

1150 PRINT" RIFLESSIONE E 5 P.TI" 

;rem 240 


1160 PRINT" VENGONO SOT RATTI PER 

{ 4 SPAZ I } OGNI { 2 SPAZI } * SPECCHIO* 
{ 4 SPAZ I } ANNULLATO DURANTE LA" 




: rem 

45 

1 1 65 

PRINT" { 4 SPAZI} CANCELLAZIONE." 




: rem 

132 

11 70 

PRI NT" { 2 GIU 1 } UN TASTO PER GIOCARE. 


n 

; rem 

39 

1180 

GETAS : I FA3 = " "THENl 1 80 

: rem 

183 

1 ì 90 

RETURN 

: rem 

171 

2000 

FORI = SSTOSS-+-506 

: rem 

228 

201 0 

IFPEEK ( I ) 07 YANDPEEK (1)07 8TKBN2030 



: rem 

104 

2020 

GOSDB4 3 00 : POKES , 0 : POKES3 , 

0 : SC=SC- 5 : P 


OKEI, 32 

: rem 

1 82 

203 0 

NEXTI 

: rem 

77 

2040 

RETURN 

: rem 

1 66 

4300 

SO* I NT { RND ( 1 ) *100) +1 29 

: rem 

202 

431 0 

POKEVO, V: POKES 3, SO: POKES 2 

, SO: FOFTl-l 


TQ3 5 iNEXTTl : RETURN 

: rem 

206 

5000 

POKEVO , V : FORS - 1 2 8 T02 50 STEP I 0 




: rem 

62 

501 0 

POKES 4, S 

: rem 

251 

5020 

SEXTS 

: rem 

89 

5030 

POKEVO, V: POKES 3, 2 50: PORI I 

=1 T025: 

NEXT 


I T : POKES 3 r 0 : POKEVO , 0 : RETURN : rem 

21 3 

6000 

POKEVO , V : POKES 3,250:FORTI=ÌTO25: 

NEXT 


II : POKES 3, 0 : POKEVO, 0: RETURN: rem 

21 1 

6200 

POKEVO , V : POKES 3,245: FORI I 

T025: 

NEXT 


1 1 : POKES 3,0: POKSVO , 0 

:rem 

191 
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621 Q RETURN :rem 169 

7000 FORI = 384 Q0TO3 690 S:F0KE I f 6 : NEXT : RETUR 
N : r erti T 3 4 


63000 

REM 

: r em 

221 

6301 0 

POKE36879, 24: PRINT" {CLR} 1 ': 

H=PEEK<36 


864) : V=FEEK { 36065} 

: rem 

249 

63020 

PRINT" LO SCHERMO E’ OK S/N 

■t 




:rem 

78 

63030 

GETA$ : I FA$*" "THEN6 3 030 

;rem 

27 

€3040 

IFA$ ■ "N"GOTO63060 

;rem 

248 

€3050 

PRINT" {CLR} (BLK}"| : RETURN 

: rem 

71 

63060 

PRINT" f 2 GIU'JUSARE I TASTI CRSR P 


ER 

: rem 

63 


63070 PRINT" f 2 SPAZI } MUOVERE LO SCHERMO 

:rem 126 

63080 PRINT" {GIU 1 H 2 SPAZI }E <D> QUANDO 
E r OK { 2 GIU 1 } 1 * 214 

€3081 PRINT" { RVS H RED) ROSSO { 13 SPAZI}" 

: r em 151 

€3082 PRINT" (RVS){CYN]ClANO{ 13 SPAZI}" 

;rem 239 

63083 PRINT" { RVS }{ PUR} PORPORA t 11 SPAZI) 

" : rem 166 

630 84 PRINT w ( RVS } [ GRN } VERDE E 13 SPAZI}" 

:rem 124 

630 8 5 PRINT 1 ' t RVS }{ BLU} BLU! 15 SPAZI}" 

: rem 2 35 

63086 PRINT"{rVSHYEL}GIALLO{ 12 SPAZI} 1 ' 

:rem 64 

63090 GETA$ tIFà$«""THENG 309Q :rem 39 

631 00 IFAS = w D"THENPRINT"{CLrHBLK] ; RETO 

RN :rem 43 



6311 0 IFA$ »" (SU } "THENV= V- 1 : I FV< 0THENV= 0 

treni 244 

631 20 IFA$=" (GIU 1 }"THENV=V+1 tIFV>40THENV= 
40 :rem 221 

631 30 IFA$ = " { S IN ) "THENH=H- 1 : 1 FH< 0THENH= 0 

:rem 202 

631 40 IFAS«"{DES}"THENH-H+1 ! I FH> 1 7THENH- 1 
7 :rem 1 B7 

631 50 PO KE 3 6 8 6 4 # H ; POKE 36065, Vt GOTO 6 3 090 

:rem 25 
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di M, Celio Ztnollo 


Tnfit è un gioco di “tinBlazbne 
urbana” la coi idea è nata con- 
statando quali pericoli costitui- 
scono quotidianamente le auto- 
mobili nei confronti degli Inermi 
pedoni. 


A vrete infatti notato che gli a ut omo- 
mllìsti non sì preoccupano affatto 
dei pedoni, anche se camminano sulle 
strisce a loro riservate, e spesso li obbli- 
gano a fare i salti mortali per evitare in- 
vestimenti. 

Nel giochino, quindi, il protagonista è 
un pedone che cerca disperatamente di 
attraversare la strada per poter giunge 
re alla propria abitazione. 

Egli ha però la sfortuna di abitare In una 
città dì incivili", per cui non sperate 
che gii automobilisti cerchino di scansar 
lo; dovrete pensarci voi e vi assicuro 
che non è per niente facile. 

Se riuscirete a giungere daU'aitra parte 
della strada, guadagnerete, accompa- 
gnati da una dolce musichetta, 10 punti 
per attraversamento: in caso contrario 
al quinto urto con le auto perderete una 
vita e il suono di un’ambulanza sottoli- 
neerà il triste evento. . 

Se giungerete ad un punteggio equiva- 
lente a 100 punli t guadagnerete una 
vita e passerete al secondo schema, nel 


Per giocare è richiesto il joystick, in 
PORI 2, tramite i\ quale potrete co- 
mandare direttamente le richieste di ini- 
zio e fine gioco. 


quale l'operazione diverrà veramente 
complessa; noi stessi l'abbiamo supera- 
to a fatica, comunque vi facciamo i no- 
stri migliori auguri. 


T rafie per C64 

1U PGKEo328U,0;FOKE532tì} ,0 ;rero 182 

15 PRINT" {CLR}( 2 GIU 1 1 tDES }{RVS } {RED |M 
{ jti SPA2I)WtGFFt" :rem 10Ù 

20 FORI = 1 TQ 2 Ci ; FRI NT" t DEH f { RV5 } {GFFj"SPC( 
3b)" f RVS) {OFF )*■ : NEXT trem 210 

PRINT" tDES } { RVS j N ( 0f> SPAZI jMtQFFj 11 

;rein 148 

30 PRINT" iaoMEH J GIU 1 j { 2 DBSHRVSj 

UELjMt 24 SPAZI } N {OFF jf 11 rrem 145 

40 FORI * 1 TO 1 tì : PRINT"? z OESKRVS) 10FF}”S 
PC 154) "{RVSJ {OFF } * s NEXT :rem 246 

4 5 PRINT" [ 2 DESHRVSjNt 34 SPAZI }Ht OFF i " 

:rem 179 

50 PRINT" iHOMEjt 4 GIU'H 3 DESHRVSi 

{ BLU iM t 22 SPAZl)NÌQFFl n :rem 66 

bU FGRi^TTQlb: PRINT* T 3 OESHrVS} tGFFpS 
PC 132) " t R V S } lOFF j " : NJ&XT ;rem 17 


65 PRINT" i 3 DES j { RVS }N { J2 SPAZI >M{ OFF 1 " 

: rem 210 

150 PRINT" tHOMEH 7 GlU’UWHTÌi 5 DES} 

{ 2 C J [ <R> j { 2 Ct { < A> J ( 2 CÌIU 
Ì 2 CJ I Ut 3 0} C[<R>]C U{ 2 Cj" 

■ i rem 25 

Ì80 PRINT" { 1 CESISI 3 SPAZI J t<Q>ICl <R>i 
K 1<G>| [ 2 C) £<W>] U0>j { 2 Cj 
T 3 SPAZI jB t ^ SPAZI ib" Treni 121 

170 PRINT"! 4 DESH 3 SPAZI 1 J { 3 SPAZI }J 
J{ 2 SPAZI i J i 2 SPAZI )J"J{ 4 SPAZI? 
C [<E> J C J{ 3 C } " ; PRINT"? ? GIU 1 } "TAB ( 
1 tì) "b Y" " : rem 128 

175 PRINT" t * GIU 1 } "TAb [ 6 ) "M ARCO 

{ 2 SPAZI) 2 A N 0 L L 0* ; rem 197 

ISO PRINT"( z GIU* j fc TAB (9) "PREMI FUOCO PE 
R GIOCARE" srero 11 

l 85 IFPEEK l 56320) iTHENGOTOl 9u : rem 117 

IRÒ GOT0165 : rem 118 

190 GQSUB 1 UGO ;rem 219 


60 WERCQMMODQffLÉ^J/$$ 


200 V* 53248 : POKEV+b? , 1 0 ; POKKV+58 , 0 : PQKEV+ 
28,255 srero 217 

205 FORX - 7 0 4 TO 7 06 : RiADU t POKEX , U : NEXT 

Stero «2 

21 0 POKE2Q40, 1 1 : POKEV+39, 5 srero ^05 

215 FGRX=tt32TOay4:READ0:POKEX,g:NEXT 

srem 87 

220 PGKE2U41 , 1 3: POKEV+40, b Stero 201 

225 FORX* è 9 bTO 9 56 : READQ : POKKX , G : NEXT 

srem 99 

240 POKE204 2 ,14: POKEV+41 , 7 : POKE2044 , ì 4 : PO 
KEV+42,7s POKE2D46, 1 4:FOKEV+4S,8 

:rem 1 9i> 

235 FORX= ybOTO 1 022 ; HEADg : POKEX , 0 : NEXT 

: rem 1 23 

2*0 POKE20i3,l5;POKEV+43, 1 4 : POKE2Q4 5 , 1 b;P 
OKEV+4 4 , H: PQKE204 7,15: POKEV+46 , ti 

srem 43 

24 5 A=1Q0;b**2G:E=l60sF=160sG*ì 36 sH= 160:1 
-iyO:L-200:M=HbiN*2UO srem 179 

250 0“ 1 50 : F= 1 20 :Q=1 20 : R- 1 20 : VI = 3: rem 25 

255 C* 56 3 20:D=5ò32t ; I = I+VE : M=M+VE : 0=0+60 : 
Q*g+60:E=E+2Q:G=G+2Q srem 236 


260 VE-INT (20*RND (1 ) ) +40 stero 45 

319 IFPEEK (CJ 5 1 26 THENB=B- 2u sGQSUB4 90 ; IFB 

<tì0THENB=70 : rem 85 

320 IFPEEK (C)=119 THENA*A+40 :GOSUB4 90 : IFA 

>2l0THENA*220 Stero 165 

3i6 IFPEEK tC] =125 THENB=B+ 20 : GOSUB4 90 S IFB 
>ÌYOTHENB=220 stero 174 

330 IFPEEK (C) =1 23 THBNA-A- 40 :GQSUB49U : IFA 
<2UTHENA=30 Stero t>3 

360 IFPEEK (V+30J ANDl 0*1 OTHENA* 1 00;B*220: P 
E=PE+ 1 : GOSUBtiOGO : IFFE> 5THENGQSUB9UQ0 

Stero lo? 

370 L FL > 2 4 QTHENE= 4 0 : G = 1 ti srem 124 

375 IFI >240THENI=40 :M= 1 6 :rero 143 

3b 0 IFO>24UTHENO=*U:Q=1& srem 155 

365 1FA“ 1 4ÙANDB= 7GTHENSC-SC + 1 0 sGOSUB 1 0000 
S A* 1 00 : B=22Ù srem 96 

45U POKEV+O, A: POKEV+1 , B : PQKEV + 2 , A: PQKEV+3 
,B stero 131 

45b POKEV+ 4 , E ; POKEV+S , F ! POKEV+ b , G S POKEV+ 7 
,H : PGKEV+& , I : POKEV+9 , L s rem 222 

460 POKEV+1 0,M: POKEV+1 ì , K ; POKEV+ 1 2 , 0 : POKE 
V+1 3,PsPOK£V+l4,Cf:POKEV+l5,R:rem 22 
465 POKEV+21 ,253 stero 120 

470 PRINT" tHOMEjtGIU 1 HRVS 1 "TAtì ( 35 J SC i PRI 
NT" tGIU * } IRVS }"TAB t3b) VI SPRINT" {GIU 1 j 
{ RVS | " TAo {35} PE Stero 120 

47 5 PRINT" t 2 GIU * HRVS j "TAb ( 2 9 ) PU : G0T025 
5 srero 23b 

490 POKEV+21 ,254: POKE2Ó4 1 , 13:RETURN 

srem til 


500 DATAO, 15 , 0 , 0 , 15 , 0 , 0 , 13 , 4 , 0 , 1 , 4 , 0 , 15,1 

2 . 0 . 255 . 252 . 0 . 255 . 252 . 0 . 207.1 92 

stero ISO 

50 5 D ATAU , 79, 1 92 , 0 , 79,1 92 , U, 10 , 126 , 0 , 10,1 

26 . 0 . 8 . 160 . 0 . 5 . 160 . 0 . 232.32 Stero 30 

510 DATAO, 232 , 32 , 0 , 1 92 , 32 , 0 , 192 , 32 , 0 , 0, 60 

, 0 , 0 , 60 , 0 , 0,0 stero 70 

Sì 5 RE STO HE s tero 191 

520 DATAO, 15 , 0 , 0 , 15 , 0 , 0 , 13 , 0 , 0 , 1 , 0 , 0 , 15,0 
, 0 , 63 , 1 92 , 0 , 255 , 192 , 0 , 207,244 

stero 76 

525 OATAO, 207 , 244 , 0 , 79 , 1 92 , 0 , 74 , 1 26 , 0 , 10 , 

1 26 . 0 . 8 . 1 28 . 0 . 6 . 128 . 0 . 10 . 1 2 ti srero 69 

530 DATAO, 10 , 128 , 0,8 , 0 , 0,8 , 0 , 0 , 8 , 0,0 

, 15 , 0 , 0 , 15 , 0 , 0 , 0,0 Stero 50 

535 DATAI 92 , 192 , 0 , 1 95, 1 92 , 0 , 76 , 46 , 0, 1 1 2, 4 

3 . 0 . 48 . 42 . 0 . 12 . 170 . 160 . 254 . 170.170 

stero 146 


540 DATA 170, 170, 1 6b, 170, 1]/ 0,172, 170, 1 7 0,6 
2 , 1 70, 2,61 ,170,62,160, 170, 254, 1 56 

Stero 105 

54 5 DATAI 70, 206,1 1 2 , 0 , 20? , 0, 0, 252 , 0, 0 , 46 , 
0 ,0, 0, 0, 0, 0, 0, Q, 0,0, 0 ,0, 0 stem 110 

550 REM ***** *D ATI AUTO PARTE II***** 

srero lai 

555 DATAO , 0,3,0, 0,3,0, 3,3,0, 1 5 , 1 68 , 0, 62 , 1 

63.0. 56.143.0.170.15.0.170.170 

srero 147 

560 DATA2, 170, 170,2, 170, 174,2, 128, 170,2,1 

40 . 170 . 2 . 191 .170.0. 51 .170 srem 192 

565 DATAO, 51,192, 0,b3, 0,0, 12, 0,0, 0,0, 0,0, 

0,0, 0,0, 0,0,0 srero 40 

570 DATAO, 0, 1 28 , 0 , 0 , 1 28 , 0 , 0 , 1 28 , 0 , J , 1 92 , 0 
,3,1 92 stero 1 3 

1000 REM * *** *5 FONDO ******* srero 1o2 

1005 PRINT” iCLR i { RVS ] { RED } i CK> J L<E>] L<R>) 

L<E> 1 l <R> ] l <E> J [ <R> 1 i 4E> J L<R>1 l <E> 1 
[ < R> J i<E> 1 l<R>] i <E> ] [ <R> 1 [ <E> 1 1 <H> 1 
[ <E> J | CR> J l<E>j i <R> J i CE> j l<R>1 i <E> 1 
L<R>] |<E>J l<R>j t <E> J i<R>} lOFF }" 

srero 6 

101 0 FRI NT" l RVS j { RED j 1<E> ] k<K>] t<E>l l 4R>1 
{RVSHWHTjPOlOFFMRVSi 1REDJ [<%>l 
[<R> J ÌOFFJTrVSÌ UHTjFQtOFFHRVS) 
{REDM<E>J UR>J KE>JlUFFji 3 SPAZI i 
{RVS} iKED} l <É> 1 k <R>J L<E>1 {OFF J { RVS } 
WHTjPO tOFF j {RVS) tREDi l<R>J k<E>J 
iOFFilRVS} t^HTlPOlOFFi { RVS U REDI 
[<R> J i <E> J [<R>i l<E>J {OFF j w : retti *7 
1020 PRINT 11 t RVS ; { RED j {<R>1 i<Eb] i<R>] t<E>J 
{ RVS ) t rfHT ) PO {OF F j t RVS } { RED 1 i <R> J 
{ <E> J {OFFJTRVSi tWHT,POiGFF/{RVSj 
{REdH<K>J {<E>Ì [<R>il0FFH 5 SPAZI] 

{ RVS } { RED J l<R>) i<£>] \<R» 10FF}{RVS) 

{ WHT ] PO {OFF } 1 RVS } ( RED J K~£>i l<H>| 

{ RVS j T wKT ì PO i QF Fiì RVS ) i RED ) [<E>] 

[<R>1 | <B> J t<R>] tOFF} 11 srem 140 

1025 PRINT" {RVS }{RED) t<E>J t<R>n<E>J [<R>J 
[<£>] { <R> j L<E>] 1<R>3 I <K> J l<R>1 L<E>] 

L < R > J [<E> 1 {OFF] t 3 SPAZI HRVS) {REDÌ 
L <E> ] [<R>] [<£>] i<R> j UE^J k<R>l i<&>] 

{ <R> J { <E> J iL <R> 1 Ì< E>] i <R>} k<B>] i DF F } " 

: rem 31 

1 030 PRINT" { 2 GIU 1 } {RVS} {YEL] t tOFF}t^ 
(RVSÌt {OFF}£ ÌHVS}t {OFF ] t {RVS} 

£ {OFF Tt tRVSTt {OFF {RVSTt {OFF} 

£ iRVSlt iOFFiE* srero Ib 
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9000 REM *** SIRENA 


1G35 PRINT" (RVSjiYELH 2 SPAZI HQFF) 

[ 2 SPASI }{RVS>{ 2 SPAZI H OFF) 

£ 2 SPAZI } [ RVS } i 2 SPAZI j (OFF) 

£ 2 SPAZI }[ RVS }{ 2 SPAZI] [OFF) 
t 2 SPAZI } {RVfì ì \ 2 SPAZI) {OFF) 
j 2 SPAZI HRVSH 2 SPAZI) (OFF) 
j 2 SPAZI) (RVS)t 2 SPAZI hOFF}" 

4 tram 160 

10 4 0 FORI * 1 TQ 1 6 : FRI NT" {RVS) [<4>1 

{ 29 SPAZI ] {OFF ) ” : NEXT :rem 44 

104 5 PRINT" t HOME } 11 TAB (29) 11 { RVS j [ WHT } 

{ 10 C } {OFF ) " ;rem 204 

1050 FORI =TtG 23 : PRI NTTAB £29) " [RVSj [WHT} 

t 10 SPAZI )iOFF) B ;N£XT :rcm 4 4 

1 U 55 PRINT" \ HOME ) [GIU 1 ) "TAB ( 30 ) " { RVS j SCOR 
E* 1 i PRI NTTAB { Z 9 ) " { RVS } { 10 C}" 

frem 107 

1060 PRiNTTABC 30) "{RVS) VITE* 1 :rem 109 
10s5 PRINTTAB(29) " (RVS) { 10 C}* :rem 224 
1070 PR1NTTAB (30) M t RVS } PENAL" : PRI NTTAB [29 
)"iRVSH 10 C)" srem 244 

10 75 PRINTTAB (30) " [ RVS )TOTALE” i FRI NT" 
(GIU 1 H RVS ) " TAB ( 2 9 ) " { RVS } { 10 Cj h 

srem 185 

zQOO RETURN sxem 162 

3000 REM** * *R1 CHIESTA NUOVO GIOCO***** 

:rem 197 

3005 A 5 * 25 5 :B“1 70 srem 51 

3010 PRI NT" \ HOME } { 12 GIU * ) "TAB [33 ) " [RVS j 
SI* SPRINT”! 5 GIU* J " TAB (33) " { RVS ) NO " 

:rero 230 

3015 PRI NT” [ 2 GIU* } “ TAB [31) "l RVS } ANCOR A? 
"SPRINT" [HOME] ( 8 GIU* ) t RVS ) * TAB [29) 
PU+SC ;rem 66 

3020 IFPEEK (C) = 1 26THENB=B- 5 : 1 FB- 1 4 5THENPG 
KEV+21 f 0; RUN srem 228 

3025 IFP£EK[C) =1 25THENB=B+5: IFB*1 9DTHENPO 
KEV+21 , 0 : PRINT 1 ” {CLR} ";END srem 102 

3 0 30 POKEV+0, AsPOKEV+l , B ; POKEV+2 , A: POKEV+ 



3 , B s GOTQ3G20 

srem 

232 

700U 

REM****VINCITA******* 

s rem 

1 35 

7005 

POKEb 4 2 96,1 5 : POKE 54295,0 

: rem 

101 

7010 

W-54 272: PQKEVV+6 , 9 : POKEVV+S , 9 

netti 

106 

7015 

POKEVV+1 , 20 ; POKEW+4 , 1 7 

: rem 

ì 54 

7020 

FORN N = 1 TO 5 U 0 : NEXTNN 

: rem 

7 

7025 

POKEW+4, 0 

: rem 

100 

7030 

: E* 1 60 : F _ 1 50 :G=1 3b;H=15Q: 

I»190:L= 

= 190 


:M-1 86: N= 1 90 

srem 

148 

7035 

PRINT" {HOMEH 1 9 GIU 1 J " 

s rem 

246 


7040 PRINT" [RVS j [YEL}£ (OFFffc [RVS)L 

(OFF } £ [RVS) E tOFFit [RVS )£. {OFF) 

£ {RVS)fc {OFFj£ {RVSifc [OFF)t IRVS) 

£ tOFF}t {RVsjt” :r em 175 

704 5 PRINT" [RVS HYELj [OFF ) £ [RVSjjt (OFF) 
£ [RVSjfc [OFF } £. {RVS)t [OFF ) £ [RVS j 
t. [OFF)t {RVS}£ {OFF ) t [RVSjfc {OFF) 

£ ( RVS } £, {OFF } *“ :rem 157 

7050 PRINT" [RVS H 29 SPAZI } [OFF ) " 




tieni 

65 

7055 

PRINT” [RVS} { 29 SPAZI }[OFF} [WHT } 

” : RE 


TURE 

srem 

101 

8000 

REM * * * * SCONTRO ******* 

: rem 

162 

8005 

POKE 54296 , 15 : POKE 54295, 0 

s rem 

102 

8010 

W »54 272 ; POKEW+ 6 , 0 : POKEW+ 5,12 




x rem 

140 

8015 

POKEW+ 1 , 20 : POKEVV+ 4,33 

srem 

153 

8020 

FORN N ■ 1 TO 50 : NEXTNN 

:rem 

216 

8025 

POKEW+ 4, 0 

s rem 

lui 

8030 

IFVI® 0 TNENGOTG 3 O 0 a 

treni 

145 

8035 

RETURN 

treni 

176 

BU 53 

RETURN 

:rem 

176 


sretn 183 

9010 VV= 54272 s POKEW+6 , 0 : POKEW+S , 237 

sretn 198 

9020 POKEW+2, 2UQ :POKEVV+3, Q srern 144 

9 CU 5 AA=55sBB=42 irem 90 

9030 PQKEVV+ 1 j bO : POKEW+4 ,65 netti 1 50 

9040 FOR NN*lTO20 srem 195 

9050 POKEW+1 , AA srem 179 

9050 FORMM^lTObOsNEXTMM irem 217 

9070 POKEW+1 , BB srem 1 b3 

9080 FORMM* 1 TOSO : NEXTMM srem 219 

9085 IF NN*€THEN AA=53:Bfì = 40 nei 41 

9090 NEXT HN srem 173 

91 00 POKEW+4 1 0 s VI “VI - 1 : PE-Os RETURN 




srem 

201 

10000 

REM *** HOME MUSIC**** 





srem 

1 1 9 

IOOOj 

PO KE54 2 9 b, 1 5: POKE 54 2 95 

,0 srem 

143 

ì 0010 

VV= 54 272 s POKE W+t> , 0 : POKE W*5, 

8 



srem 

1 38 

1 0020 

PP*1000:OU»2r (1/12) 

srem 

76 

1 0030 

FOR KK-UT04 

srem 

IBI 

1 0040 

FOR JJ-OTOH 

s rem 

226 

10050 

IFJJ = 1 ORJ J = 30RJ J^bORJ J 

=BORJ J-1 0THEN 


10080 

: rem 

121 

IQQbO 

POKE W+ ì , PP/2 56 : POKEVV , PP AND 

255 



srem 

22 

10070 

POKEVV + 4, Q:POKEW+*, 65 

:FORNN=lTO10s 


NEXTNN 

srem 

221 

10060 

pp-pp*oo 

nera 

66 

10090 

I FKK® 4THEN 10110 

: rem 

176 

1Q100 

NEXT JJ,KK 

srem 

135 

tolto 

FORNN ® 1 TO 2 00 t NEXTNN 

; rem 

46 

101 -iO 

POKE W+4,0 

srem 

138 

101 30 

L FSC* 1 0 OTH ENGOSUB7 0 00 ; 

PU=FU+l0G 

: SC= 


U ; VI-VI +1 

: rem 

41 

101 40 

RETURN 

*: rem 

214 
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dì M. Cfistnib G rizzi 




Ecco li versione per 06 del pro- 
gramma “Roulette per €64" pub- 
blicata sui numero 2 di SCPER- 
VIC dello scorso anno. Data la 
rapida diffusione del CI 6 - alme- 
no a giudicare dalle richieste di 
programmi pervenutici da parte 
dei lettori - ci proponiamo, com- 
patibilmente con ia reperibilità 
degli stessi programmi, di pub- 
blicare giochi ed utility anche 
per 06 su 5UPERCOM MODO- 
RE. Invitiamo pertanto tatti I let- 
tori che abbiano acquistato il 
06 ad inviarci i propri lavori 
migliori. 


I l gioco della Roulette è un classico 
dell'azzardo. Analizziamo in primo 
luogo il tipo dì giocate che è possibile 
effettuare con questo programma: 

- NUMERI PIENI: è la classica giocata 
su un numero che, se estratto, rende 
35 volte la posta, 

— CAVALLI: gruppi di due numeri, ad 
esempio 1 e 2 oppure 1 e 4; paga 17 
volte la posta 

- TERZINE: gruppi di tre numeri conse- 
cutivi sulla stessa riga, come 1, 2, 3 
oppure 13* 14, 15; paga 1 1 volte la po 
sta. 

- CARRÉ': gruppi di quattro numeri in 
quadrato, come 1,2, 4, 5 oppure 14, 
15* 17, 18; paga 8 volte la posta, 

- SESTINE: gruppi di sei numeri conse- 
cutivi su due righe, come sestina 1-6 
oppure sestina 13-13; paga 5 volte La 
posta. 

- DOZZINE: le tre dozzine giocabill so- 
no la 1-12, la 13-24 e la 25-36; pagano 
2 volte la posta. 

- COLONNE: le tre colonne A, B e C 
pagano 2 volte la posta, 

- PASSE/ MANQUE: I primi 18 numeri 
(1-18) sono il Manque, mentre gli ultimi 
18 (19-36) sono il Passe; questa giocata 
paga 1 volta la posta, 

- PAR1/DISPARI e ROSSO/NERO 
pagano Ì volta la posta. 

Il programma, dopo essersi informato 
sul numero dei giocatori (limitato solo 


dalla memoria disponibile nel compu 
ter: è stato comunque verificato fino a 
sei giocatori) e sui rispettivi capitali di- 
sponibili, passa al primo giocatore e gli 
chiede quali giocate intenda fare trami- 
te un menu dì gioco. Scegliendo la* o le 
opzioni desiderate, si visualizzerà il ta- 
volo dì giocata, ed il programma chiede- 
rà numeri e puntata. Per puntate su 
terzine, carré* sestine e dozzine sarà 
sufficiente battere il numero più basso 
compreso nel gruppo, ed il computer 
provvedere a calcolare anche gli altri 
automaticamente. Dopo ogni puntata 
verrà visualizzato il capitale ancora di- 


sponibile e quello giocato; finito di pun- 
tare, premendo il tasto di fine giocata 
si farà in modo che il calcolatore, dopo 
avervi informati sul totale giocato* passi 
a raccogliere le puntate del giocatore 
successivo. 

Quando tutti avranno effettuato Le pro- 
prie giocate verrà estratto il fatidico nu- 
mero e visualizzati gli esiti, giocatore 
per giocatore e giocata per giocata. 

Si passerà quindi a raccogliere le punta- 
te successive con lo stesso sistema so- 
pra descritto. 

Il programma è ricco di controlli e quin- 
di. se provate a barare* vi prende sem- 
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pre in castagna. Se poi malaugurata 
mente finite i vostri soìdi, lì computer 
ve ne presterà quanti ne volete, e senza 
pretenderne la restituzione! 

Si ricordi che il capitale di inizio va irti' 
messo per intero, mentre per tutte le 


giocate sarà sufficiente immmetterlo in 
unità di mille lire [cosi ci si risparmia di 
digitare tutti gli zeri da posLinf lazi arie!). 
Volendo partire con un capitale di due* 
centomila lire si dovrà quindi risponde- 
re alla domanda “Capitale di inizio?” 
con 200000, mentre per giocare * ad 


esempio diecimila lire sul 7 si dovrà 
rispondere alla domanda “Numero e 
puntata?" con 7,10 (oppure 7+-RE- 
TURN, 10+ RETURN). 

Non ci resta che augurare a tutti buon 
divertimento! 


Roulette per C16 

0 REM *********************** 

0 REM * * 

2 REM * ROULETTE PER C16 * 

3 REM *DI M » CRISTUIB GRIZZT* 

4 REM * SUPERCOMMODORE * 

5 REM * * 

6 REM *********************** 

7 REM 

8 REM 

9 REM 

10 COLOR 0*1: COLOR 4 , 1 : P RI NTCHRS (14): VOL8 

20 PRI NT 11 (GLR] [ BLU } [ < A> 1 { 37 *} [<S>j " 

21 FORI = 1 TO20 : PFI NT" - "TAB ( 38 ) "-":NEXT 
2 2 PRINT" [ < Z > 1 { 37 *T(<X>]" 

23 PRINT" {HOME} ( 9 DES) { 8 GIU r }(RVS} 

{ WHT }Cl 6 R(SPAZI}Q{SPAZI}U{SPAZI}L 
|SPAZI}E{ SPAZI) T{ SPAZ I } T{ SPAZ I } E{ OFF } " 

24 PRINT" { 2 GIU 1 )} 10 DES } { GRN } BY SUPER 
CO{ 2 M } ODORE " 

2 5 FORW” ì T02 000 : NEXT 

2 6 Pi a 3 5 : F2-1 7 :P3 = 1 ì :P4 = B :F5 = 5 :P6=>2 :P7=:2 : 
P8«ì :P9-1 VOLTE + LA POSTA- 1 

30 PRl NT" {CLR ) VUOI LE ISTRUZIONI? " 

31 GETWS :IFWS0"S"ANDW$0"N"THEN31 

32 IFW$="S"THENGOSUB3000Q 

120 COLORO / 1 : PRINT" { CLR } {WHT} QUANTI GIOC 
A TORI 

121 INPUTNP:IFNP-0THEN1 21 

1 24 DIMN«%(45,NP) ,Tt (45 f NP) ,PU% (NP) ,C [NP) 
,ZX%{5) :«=1 000 

125 FORI =*1T0NP : PRINT" (GIU* }"ITAB{3) : INPUT 
"NOME f PREGO NO$ ( I ) 

130 INPUT "CAP ITALE DI {SPAZ I } INIZIO (>1000 
) ";A: PufTlf-'A/l 000;P% (I) ^PUl Uì :PRINT 
: NEXT : G= 1 

135 FQRPL^ 1 TONP : Z“0 : I FPU% ( PL) =0ANDC (PL) =0 
THEN1 40 
137 GOSUB5000 
140 NEXTP L : GOTO 550 
150 REM SUBR. GIOCATA PIENI**** 

155 GOSUBl 0000 tPRINT" {GIU* JQUANTI PIENI G 
IOGHI? (MAX. 09) 11 ; 

165 INPUTAS ;N"VAL(A$) : FORI^OTON- 1 :PRINTI+ 

170 INPUT" NUMERO E PUNTATA" ; NM% ( I , PL) , A :T 
% (I,PL) =A 

175 Z “Z+A* M: NEXT : RETURN 

180 REM SUBR. GIOCATA CAVALLI**** 

185 GOSUBl 0000; PRINT" {GIU' }0UANTI CAVALLI 
GIOCHI? (MAX. 06) rt ; 

200 INP UTA$ : N E VAL { A$ ) : W” 9 : FORI = 1 TON 

205 PRINT I ; : I NPUT "NUMERI E PUNTATA " ; NM I { W 
t PL) r m% (W+l , PL) t A :T% (W,PL) =A 

206 Z - Z+A*M: W-W-+2 : NEXT : RETURN 
210 REM SUBR . GIOCATA TERZINE**** 

215 GOSUBl 0000: PRINT" {GIU' }QUANTE TERZINE 
GIOCHI? (MAX. 06) *; 

225 INPUTA$ :N*VAL(AS) : FORI » 2 1 TON+20 
23Q PRINT I - 2 0 J : 1 NPUT"NUM .PIU' BASSO E PUNT 
ATA" } NMt ( I , PL) , A : T% { I , PL) *A 
235 REM CONTROLLO INPUT 

240 FORW= 1 "PO 3 4 STE P 3 : 1 F W= NM% ( I , PL ) THEN250 


24 5 next: print" {rvs Inumerò non congruente 

{off} RIPETERE !";GOS UBI 1 00:GOTO2 3t> 

250 Z-Z+A*M : NEXT I : RETURN 

260 REM SUBR. GIOCATA CARRÉ ***** 

265 GOSUBl 0000 : PRINT" { GIU ' } QUANTI CARRÉ 1 
GIOCHI? (MAX, 06) 

275 INPUTA$ :N-VAL{A5) : FORI = 27TGN+2 6 
280 PRINT 1-26 ; : !NPUT"NUM .PIU 1 BASSO E PUNT 
ATA" ; NM% { I , PL) ,A:Tt(I,PL) -A 

285 REM CONTROLLO INPUT 

290 FGR W= 3 TO 3 6 STEP 3 : 1 F NM I ( 1 r PL) =WORNMl ( I F 
PL) =3 40RNMI (li PL) -35THEN299 
295 NEXT: GOTO 300 

299 PRINT" { RVS ) NUMERO NON CONGRUENTE [ OFF } 

RIPETEREI" :GOS UBI! 00: GOT02 80 

300 Z - Z + A* M : NEXT I : RETURN 

310 REM SUBR, GIOCATA SESTINE**** 

315 GOSUBl 0000 : PRINT" {GIU 1 } QUANTE SESTINE 
GIOCHI? (MAX. 06) "f 

325 INPUTA$ :N-VAL(AS) : FORI * 33TON+32 
330 PRINTI-32; :INPUT"NUM. PIU 'BASSO E PUNT 
ATA " ; NM% ( I , PL) ,A;T* (I r PL) “A 
335 REM CONTROLLO INPUT 

3 40 FORW= 1 T034STEP 3 : IFW= NMI ( 1, PL) THEN35Q 
345 NEXT: PRINT" {RVS} NUMERO NON CONGRUENTE 
{OFF} RIPETERE l":GOS UB1 1 00:GOTO330 
350 Z-Z+A*M:NEXTI :RETURN 
360 REM SUB RIGIOCATA COLONNE**** 

365 GOSUBl 0000 ; PRINT" {GIU’ } QUANTE COLONNE 
GIOCHI? (MAX * 2) *; 

375 INPUTAS :N-VAL(A$) : FORI - 4 1 TON+4 0 

380 INPUT"COLONNA E PUNTATA" ; A$ , A :Tl (I# PL 
)“A 

381 IFA$< > H A"ANDAS <> "B "ANDA$ <> "C"THENPRIN 
T " { RVS } NON CONGRUENTE {OFF} RIPETERE": 
GOTO380 

3 85 I F A$ = " A " THENNM% [ I , PL) -1 
390 IFAS - "B"THENNMI ( I , PL) =2 
395 IFAS="C"THENNMl (I , PL) «3 
405 Z=Z+A*M: NEXTI : RETURN 

410 REM SUBR. GIOCATA DOZZINE**** 

415 GOSUB 1 OOOOiPRI NT" {GIU 1 } QUANTE DOZZINE 
? (MAX ,2) " ; 

42 5 INPUTAS : N- VAL ( A$ } : FORI * 39TGN+3 8 
430 INPUT”DOZZ INA E PUNTATA " ? NM% { I , PL) , A : 
T% (I,PL) -A 

435 REM CONTROLLO INPUT 

440 TFNM*(I,PL) <> 1 ANDNMÌ ( I , PL) < > 2ANDNM% ( I 
, PL) < > 3THENPRI NT" { RVS ) NON CONGRUENTE 
{ OFF } " : GOT04 30 

4 50 Z ' Z +A * M : NEXT I : RETURN 

460 GOSUBl 0000: REM GIOCATA PASSE -MANQUE 

465 INPUT" { GIU 1 } PASSE G MANQUE? (P/M) E PU 
NTATA" ; A$ F A:T% ( 43 , PL) -A 

466 IFA$ <> "P" ANDA$ <> "M"THENPRINT" { RV^J NON 

CONGRUENTE (OFF} RIPETERE" : GOT04 65 

467 Z=Z+A*M 

4 75 I F A$ = " P "THENNMl (43, PL) s 1 : RETURN 
480 NM% [ 4 3 i PL ) * 2 : RETURN 

490 GOSUBl 0000:REM SUBR. GIOCATA PARI-DISP 
ARI E COLORE 

4 95 INPUT" (GIU 1 ! P/D O R/N , PUNTATA" ; A3 , W 
497 Z “2+'Vf*M 
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505 IFA$ = " p "THENNMl ( 4 4 , PL) =1 :T%(44,PL) =W: 
RETURN 

50 6 IFA$ - "D "THENNMl ( 4 4 , PL) *2:T% (44,PL) =W; 
RETURN 

507 IFA5 = "R"THENNM% ( 4 5 , PL) ;Tl(45,PL) =W: 

RETURN 

50 8 IFA$-"N"THENNM% ( 45, PL) *2:T% (45, PL) *W: 
RETURN 

510 PR1NT" { RVS ) NON CONGRUENTE { OFF } RIPETE 
RE " : Z = Z - W* M : GOT04 9 5 

550 REM ESTRAZIONE E CLASSIFICAZIONE 

551 IFZX> 4THENZX* 0 

559 X-INT(RND (TX) *37) : ZXI ( ZX } =X : ZX= ZX+1 

560 IFX< 1 9THENPMS * "MANQUE" : GOT0562 

561 FMS="PA( 2 Si E" 

562 IFX/2- INT (X/2 } THENPD$ * "PARI " ì GOTQ564 

563 PDS = ,f DISPARI" 

564 F0RI=1TO35STEP2:XFX*ITHENRNS="NERO”:G 
OTO 566 

565 NEXT :RN$»"RO[ 2 S}Q" 

566 FOR 1*1 TO 3 4 STEP 3 : 1 FX* ITHENCQS = "A 1 * i GOTO 
569 

567 11*1 + 1 1 1 FX* I ITHENCOS * "B" : GOTO 5 6 9 
5 68 NEXT : CO$ = "C° 

5 69 IFX*0THENPD$= RN? = ,,f ' i COS = " " : PM$ = " " 

570 REM VI5UALZZAZI0NE**** 

576 FOR I = 1 TO 1 0 : PRI NT 11 { CL R } { lì GIU'} 

[ 12 DESf(RVSMYEUA{ 2 T} ENDERE PRE 
GQ( OFF 1 [ < 8 > J " ; FORW" 1 TOl 00 ; NEXT 

577 PRI NT " { CLR } " : SOUND 2 , 800,2: FORW- 1 TOl 0 
0 : NEXTW, I 

560 FORPL*l TONP : PRI NT" {CLR) " i IFPUI (FL) -0A 
NDC { PL ) »0THEN1 035 

585 PRI NT "{ }**************** ‘ ****** * 

USCITO IL { RVS } [<5>! "X" [<B>] " 

536 PRlNTPDfT" "sRN$? M " f PM$ j w COL » ";COS 
SPRINT 

590 PRINT"RISULTATI{ SPAZI )DI {RVSM<7>]"N 
0$ (PL) "(GIU* 1 [<8>l " 

595 REM PIENI**** 

600 FORW- 0TO8: TFT I (W,PL) ’0THEN65G 
605 IFX*NM% (W,PL)THEN620 

610 PRI NT" PIENO "TAB (1 0}NM% ( W , PL) TAB { 30 ) "P 
ERDE";PU%(PU -PU% ( PL) -T% (W r PL) :GOT062 
5 

620 PRINT"PIENO"TAS{lQ) NMl (W , PL) TAB ( 30 ) ” * 
VINCE I n : PUt { PL) -PU%(PL) +P1 *T% (W,PL) 
625 NEXTW 

650 REM CAVALLI**** 

655 FORW'9T020STEP2; IFTl (W,PL) -0THEN70G 
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660 IFX=NMl ( W „ PL) OR X- NMl ( W+ 1 ,PL)THEN675 
665 FRI NT "CAVALLO “TAB ( 1 0 ) NMl ( W r PL) ”-"NM%( 
W+l ,PL) TAB (30) "PERDE" 

670 PU%(PL)*FU%(PL)-Tl(W,PL) :GOTO690 
675 PRINT"CAVALLO"TAB (ÌG) NM%(W,FL) M -“NM%( 
W+T f PL) TAB (30) "* VINCE " 

680 PU%(PL)*PU%(PL)+P2*TI (W f PL) 

690 NEXTW 

700 REM TERZINE**** 

705 FORW-2 1 T026 : IFT% (W,PL) =0TKEN750 
710 IFX-NMI (W f PL) ORX- NMl ( W , PL) +10RX*NM%(W 
, PL) +2THEN725 

71 5 PRINT"TER2INA"TAB (10) NMl{W,PL) NM% (W,P 

L) + 1 NM % (W , PL) +2 TAB (30) "PERDE" 

720 FUI ( PL) =PUl ( PL} -T% ( W f PL) :GOT0735 

72 5 PRINT"T£RZINA"TAB ( 10) NMl £W,FL)NMI (W,P 

D+lNMl ( W , PL) +2TAB( 30) "* VINCE " 

730 POI ( PL) -PUS ( PL} +P 3 *T% (W , PL) 

735 NEXTW 

750 REM CARRÉ f * * * * 

755 F0RW=27TO32:IFT% (W,PL) -0THEN790 
760 A= NMl (W i PL) : I FX- AORX- A+ 1 ORX-A+ 3GRX=A+ 
4THEN775 

765 PRI NT "CARRÉ * "TAB ( 1 0) A;A+1 ; A + 3; A+4TAB( 
30) "PERDE" 

770 P U % ( PL ) =PU% (PL) -TI (W,PL) :G0T0785 
775 PRI NT "CARRÉ * "TAB ( 1 0 ) A ; A+ 1 ;A+3;A+4TAB( 
30) "*VlNCE n 

780 PUl(PL) -PUHPL) +P4*T% <W,PL) 

785 NEXTW 

790 REM SESTINE**** 

795 FORW=3 3TQ3 8 : 1 FT% (W,PL) -0THENB50 
800 FORI = NMl [ W f PL) TONMl £ W , PL) +5 : IFX= ITHEN 
81 5 

805 NEXTI :A = NM% (W f PL) : PRINT"SESTINA"TAB ( 1 
0 ) A" - " A+ 5TAB (30) "PERDE" 

810 PU% ( PL) =PU% { PL) -TI [ W , PL) ;G0T0825 
815 PRI NT " SEST I N A 11 TAB {10)A"-"A+ 5TAB (30) "* 
VINCE" 

820 PU% ( PL) =PU% £ PL) +P5 *TI [W ( PL) 

825 NEXTW 

850 REM COLONNE**** 

855 FORW=4 1 T04 2 ; IFTI (W,PL) -0THEN880 

856 IFNMI (W,PL) *1THENA$*"A M 

857 I FNM % ( W , PL ) = 2THENAS * " B w 

858 IFNMl (W,PL) *3THENAS - "C* 1 
860 IFCOS =ASTHEN870 

865 PRINT T, COLONNA ,i TAB (11 ) A$ TAB ( 30) "PERDE" 
: Pili ( PL) *PUl[PL) -T% (W , PL) :GOT0875 
870 PRI NT "COLONNA "TAB ( 1 1 ) ASTAB (30) ”*VrNC 
E" t PU% { PL) =PU% (PL) +P7 *Tl ( W , PL) 

875 NEXTW 

880 REM DOZZINE**** 

8 85 FGRW= 3 9T04 0 ! I FT % (W,PL) «0TKEN950 
890 IFX>0ANDX< 1 3ANDNMI {W, PL) *1THEN91 0 
895 IFX>1 2ANDX< 25ANDNMI (W,PL) =2THEN91 0 
900 IFX> 2 4 ANDNM% (W r PL) -3THEN91 0 

90 5 PRINT ,t DOZZINA"TAB( 10) NM%(W,PL) TAB (30) 

" PERDE " : PU % ( PL ) -PUl (PL) -T% (W,PL) 

906 GOTO920 

91 0 PRINT 1t DOZZINA"TAB( 10) NMl (W t PL) TAB (30) 

" * VINCE" 

91 5 P0% (PL) -PUl (PL) +P6*T% (W / PL) 

920 NEXTW 

950 REM PASSE-MANQUE* * ** * 

955 IFTl(43,PL) -0THEN990 

960 IFNHI £ 43 , PL) *1 THENAS * "PA{ 2 S)E" 

965 IFNM % ( 4 3 , PL ) - 2THENAS - " MANQUE " 

970 IFPMS*ASTHEN980 

975 PRINTASTAB (30) "PERDE" : PUl (PL) =PUt (PL) 
-T% £ 4 3 # PL) : GOTO990 
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980 PRINTA$TAB{30) "* VINCE" :FU%{PL) =PU% ( PL 
) +T% (43, PL) 

990 REM PARI DISPARI**** 

995 IFTi (44,PL) =OTHENl 025 
1000 IFNMi (44, PL) »1THENA$* M PARI" 

1005 IFNMi (44, PL) ~ 2THENA$ " "D I5PARI " 

1010 IFPD$=A$THENÌ Q20 

101 5 PRINTASTAB ( 30} M PERDE "t P0% ( PL) =PU% (PL 
} -T% (44, PL) : GOTOl 025 

1020 PRINTA$TAB (305 <T * VI NOE" : PU% ( PL) =PU%( P 
L) +T% ( 4 4 , PL) 

1025 REM COLORE**** 

1029 IFT% (45,PL) -0THEN3 060 

1030 IFNM% (45, PL} ■ 1 THENA$ = "RO ( 2 S)0" 
.1035 IFNMi (45, PL) * 2 THENAS * " NERO " 

1040 IFRN6-A6THEN! 0 50 

1045 PRINTASTAB ( 30) 11 PERDE " : POI ( PL) =PU% (PL 
) -T% (45, PL) : GOTOl 060 

1050 PRINTASTAB £30) " * VI NCE " : P U % ( PL) -PU% ( F 
Lì +T% { 4 5 , PL ) 

1060 REM ESITO GIOCATA**** 

1065 E-PUÌ ( PL) -PI (PL) :E$=STR$ (E* 1000) :IFE 
> = 0THENES = M + " + RlGHT$ { E$ , LEN £ E$ ) - 1 ) 

1066 PRINT" 1 { Gl U 1 3 ES I TO GIOCATA: "E$ 

1070 PRINT "NUOVO £ SPAZ I } CAP ITALE : "PU% ( PL) * 
1 000 

1071 IFPUi(PL) >0THEN7 075 

1072 INPUT" VUOI CONTINUARE (S/N) " ) R? : IFR 
$ = B N"THENPUl(PL) “0 :C ( PL) -0 : GOTOl 085 

1073 INPUT "QUANTO IN CREDITO" ; W: PUÌ ( PL) =W 
/M:C (PL) =C (PL) +W: GOTOl 085 

1075 PRINT" { 25 OES }{ RVS } PREMI UN TASTO 
(OFF)" 

1080 GETA$ : IFA6=" M THEN1 080 
1 085 PRINT" {CLP } * 5 NEXTPL 
1090 G“G + 1 : GOSUB2 000 G : GOTOl 35 
1100 FORW-lTOl 000: NEXT: RETURN 

5000 PRINT" l CLR } ** : GOSUB 6 0 00 : 1 FPU% ( PL ) >C (P 
D/MANDC (PL) >0THENPU%(PL) *FUÌ (PL)-C( 
PL)/M:CfPL) -0 

5001 COLOR 0,1: PRINT " ( HOME ) { WHT } G t OCATA N 
*"G ,l DI (RVS) [<7>1 "NO$ (PL) » {OFF) [<S>] 

II 

5002 PRINT" {GIU 1 } PREMI { RVS } [< 7 >] 1 (OFF } 

[ < 8 > 1 PER NUMERI PIENI" 

5003 PRINT"PREMI [ RVS ) È < 7 > ] 2 { OFF } [ < B> ] PE 
R CAVALLI": PRINT" PREMI {RVS}[<7>]3 
£OFF}[<8>) PER TERGINE" 

5004 PRINT "PREMI { RVS ! [ < 7 >J 4 { OFF } [ < 8 > ] PE 
R CARRÉ 1 M ; PRI NT" PREMI {RVS}[<7>]5 
{OFFH<8>] PER SESTINE" 

5005 PRINT"PREMI { RVS } [ < 7> J 6 f OFF )( <8 >] PE 
R DOZZINE" ; PRINT "PREMI (RVS}[<7>]7 
{OFF } 1<B>] PER COLONNE" 

5006 PRINT" PREMI { RVS } f < 7 > ] 9 £ OFF } [ < 8 > 1 PE 
R PASSE/MANQUE" : PRINT"PREMI {RVS} 

[< 7> ] 9 {OFF ) l < 8 >J PER P/D E R/N" 

5007 PRINT"PREMI { RVS) [<?>} 0 {OFF } [<8>J PE 
R FINE GIOCATA" 

5008 PRINT" (GIU f }TOT*PO{ 2 S} SPUTO A 

. { 2 THJALMENTET T^DESl^PUitPL) *1 000 

5009 IFPUI ( PL ) > ■ 0 THENPRI NT" D I S FON I B I LE D 
A GIOCAREt 5 DES ] "FUI ( PL) *1 000-Z 


5010 IF£PUi (PL) *1 000-Z) >*0THEN501 3 
501! PRINT" {RVS} GIOCATA ! SPAZ II SUPERIORE 
{SPAZI }A( SPAZ l lQUANTO C SPAZI) PO 
{ 2 S ) EDUTO{ SPAZ I ì E PERTANTQTsPAZ I } 
NON (SPAZ iTM 2 C}eT 2 T)ATA" 

501 2 FORI -1 TO 2 ODO : NEXT : Z - 0 :GOTO5000 

501 3 IFC(PL) >0TKENPRINT'MRVS} {YEL} DEBITO 
"TAB(27)C (PL) " [<B>] " 

5019 GETWS :IFWS-""THEN501 9 

5020 IFW$ = " { Fi } "THENPRI NT" {CLR) " ; END 

5021 IFWS-"0"THENPRINT"TOTALE GIOCATO 

{ 13 DES) { GRN } "2 " {< 8 > 1 rf TFORl * 1 TOl 000 
: NEXT: RETURN 

5022 ONVAL { W$ ) GOSUB 1 50, 1 80, 21 0, 260,310,41 
0,360,460,490 

5023 GOTO 50 00 

6000 REM NUMERI USCITI 

6005 PRINT" ( 21 GIU* {ULTIMI 5 NUMERI USCI 
TI: " 

6010 FORI- QTQ4 ; PRINTZXÌ ( I } } : NEXT: PRI NT" 

£ HOME ) " : RETURN 

601 1 FORI -QT04: PRI NTZX% (I) ; : NEXT: PRINT" 

{ HOME) ": RETURN 

6020 FORI =0TQ4: PRI NTZXi (Il } iNEXT: PRINT" 

E HOME ) " : RETURN 

10000 COLOR 0,2: REM SUB ROUTINE TAVOLO VER 
DE 

10001 PRINT" {CLR) £ 2 SPAZ I }{ GRN }[ <A> ] 

{ 14 *H<P>3 {17*} [<S>]" 

10002 PRINT" { 2 SPAZI }{GRN}- [<8>1 

{ 2 SPAZI }M A N Q U éTGRN} - { < 8 >] 

£ 2 SPAZI }P A S S E( 6 SPAZI} (GRN) 

_ N 

10003 PRINT"{GRN){ 2 SPAZI) [<Q>1 £ 8 *} 
{<R>3 { 5 *} { <E> ) { 5 *} [<R>] 

{ 11 *}[<W>] " 

10004 PRI NT" { GRN } { 2 SP AZ T }_- [< 8 >1 PREMIERE 
{GRN}- | < S > 1 DEUXIEME{ 2 SPAZI }{ GRN} 
-I<8>3 TROISIEKE 1 GRN ) - " 

10005 PRINT" {GRN} [ < A> ) * + * [ <R> ] * [<R>) * 
[<H>]{ 2 *} + { 2 *TT<R>] [ 2 M[<R>] 

[ 2 *H<rTiT 2 *T+{ 2 *} £<R>3 

f 2 *}[<R>H 2 *}J<R>3T 2 *} + M<S>I 

10006 PRINT" { GRN )_- - { RED} 3 { GRN } - { BLK } 6 
{ GRN } - { RED } 9 £ GRN } - { BLK ) 1 2TGRN } - 

{ RED } TS { GRN } - £ BLKT 1 8 { GRN } - { REdT2 ! 
(GRNMbLK)24{GRN}-£RED}27{GRN}- 
{ BLK} 30 {GRN 1 - £ RED } 3 3 [GRN } BLK] 3 6 
£ GRN } 1 < 1 > ] cTgrN } 2?* 

10007 PRI NT" £ GRN } - [<Q>| * + * + * + { 2 *} + 

{ 2 M + i 2 •} + { 2 *T+( '2 *1 + 

{ 2 T}+{ 2 T}T{ 2 T} ±( 2 *} ± .[<w>]" 

1 0008 PRINT" {GRN}- [< 1 > 1 Q { GRN ) -J BLK J 2 {GRN} 
-{RED) 5{GRNÌ -{BLK}8 {GRNMrED] 1 1 
JGRN } - { BLK} 1 4 { GRN ) - { RED} 1 7 ( GRN 
{BLK} 20 {GRN} -(RED) 2 3 {GRN ì -{BLK)^6 
{ GRN } - { RED } 2^ { GRN } ^ { BLK ] 3*2 £ GRN ] - 
£RED}3S{GRN} -J< 1 >] B{ GRN } 

10009 PRINT" f GRN } t<Q> j * + * + *+ ? 2 *} + 

{ 2 *}+{ 2 *}+{ 2 *}+{ 2 *}+^ - 

{ 2 *} + { 2 ì)±{ 2 f}±{ 2 *} : M;[<W>]" 

10010 PRINT" {GRN J- - { RED } 1 { GRN } - { BLK } 4 
{GRN} -{RED} 7 {GRN}- {BLK} 1 OTgRN}- 

{ RED } T3 ( GRN } - £ BLKT 1 6 { GRN } - { REDI! 9 
{ GRN } - { BLK ] 22 {GRN } - { RED ) 23 £ GRN } - 
{BLK}78{GRN}-{RED}Tl [GRN} BLK} 34 
{GRN}- [<1 >] aTGRN}-" 

1 001 1 PRINT" f GRN } [<Z>] *T<E>] * [CE>] *[<E>1 
*[<E>] £ 2 *H<E>] { 2 *IKE>1 

T 2 *H<E>T{ 2 *}[<E>T( 2 *}[<E>] 

{ 2 *} [ <E> } { 2 *} [<E>] £ 2 *} [<E> ] 

{ 2 M [ <E> I M <X> J (< 1 >j ": RETURN 
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20000 REM SUBR, INIZIALIZZAZ. VARIABILI 

20005 FORI ” I TONP : P% ( I ) =PU% ( I ) : NEXT 

2 001 5 FORW* 0TO4 5 : FOR I = 1 TQN P ; NM % C W , I > =0:T% 
[W,U =0iNEXT:NEXT 

2 002 0 W=G; N=0 : A = 0 : A$ = "" s P$ ;C$* ” '* i N$ = ** " 

20025 RETURN 

30000 COLORO, 2 : PRINT" { GRN } " ; 

30010 PRINT"(CLR} (rVS} ISTRUZIONI {SFAZI)D 
I {SPAZI} GIOCO 11 

30020 PRINT'M T~GIU* ) TUTTE LE PUNTATE VAN 
NO IMMESSE IN UNITA * ■' 

30030 P RI NT "DI MILLE LI RE, TRANNE IL CAPI? 
ALE DI INI-" 

3004 0 PRINT"Z IO E GLI EVENTUALI CREDITI D 
EL BANCO*" 

30050 FRI NT 1 * {GIU* }PER USCIRE DAL PROGRAMM 
A PREMI Fi ALLA" 

30060 PRINT" (GIU* } VISUALIZZAZIONE DEL MEN 
U DI GIOCO," 

30070 PRINT’M 3 GIU* } PREMI UN TASTO" 

30060 GETKEYWS 

30090 COLOR 0 , 1 : PRINT 11 f CLR ì ( WHT H RVS } 

{ 6 GIU * } { 5 DES} QUOTE {SPAZI} DI 
{ SPhZ I } PAGAMENTO " 

30091 PRINT" { GIU 1 } {CYN}**** PIENI "TAB ( 1 8) 
Pi ;A $ : P RI NT "{GIU 1 } * * * * CAVA ( 2 h) 
I"TAB{18)P2;A$ 

30092 PRINT" {GIU* }*•** TERZ I NE "TAB (18) F3; 
A6 

30093 PRI NT"{CIU I }**** CAI 2 R}E'"TAB(19} 
P4 ; A$ : PRINT" { GIU 'T** * * SESTI NK **TAB { 
19) PS;&$ 



30094 PRI NT" {GIU* } * * * * DO{ 2 2}INE"TAB(19 
)P6;AS 

30095 PRINT" {GIU* }**** COLO{ 2 N}E"TAB(19 
) P7 ; A$: PRINT" {GIUT**** PA{ 2 S}E/ 
MANQUE"TAB{19) F8;A$ 

30096 PRINT 17 {GIU 1 } * * * * COLORE "TÀB ( 1 9 } P9 ; A 

$ 

30097 PRINT'* ( GIU 1 } **** PARI /D I SPARI "T AB { 1 
9) P9;A$ 

30098 PRINT" {GIU* ] { 9 DES ) PREMI { SPAZ I } UN 
{SPAZI} TASTO PER INIZIARE" 

30099 GÉTKEYAS 

30100 COLOR 0 , 1 : RETURN 
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Dsvkt Lawrence 

LINGUAGGIO 
MACCHINA DEL 
COMMODORE 64 

Il libro apre nuovi orizzonti a tutti co 
loro die sono interessali allo pro- 
grammazione In linguaggio macchina 
del COMMODORE 64, 

Con cassette 

fad, 5m Pag.m Lite 29 MO 


dive Prigmore 

IL BASIC IN 30 ORE 
PER SPECTRUM 

Questo semplice corso di autoistru- 
zione insegna a programmare, e un 
programma ha stmpra bisogno di 
due ingredienti, un linguaggio e una 
struttura; dunque questo libro non 
insegna solo il BASIC, ma anche co- 
me si orgamca correttamente un 
buon programma . 

fad. 5018 Pag. 350 Urw 40.000 


Al CONFINI 
DELLO SPEC 
Applicazioni avanzate 

Un esame attento del listati consenti- 
rà al lettore di apprendere I ‘segreti' 
della programmazione strutturata e 
migliorare notevolmente le proprie 
capacità di programmatore 
I program mr presentati vanno dagli 
arcade piu famosi, tra cui il celebre 
'Spedrum Invaderà ai programmi di 
utilità prò interessanti, dar giochi 
d'azzardo ai programmi didattici, dai 
programmi funzionali a quelli di ma- 
tematica e di giochi di strategia . 

Con cassetta 

0x1.41*8 P»B 180 Um 28.000 


Rodnay Zak s 

IL TUO PRIMO 
PROGRAMMA IN BASIC 

U diffusione del BASIC per là sua 
semplicità e quasi ‘naturalezza' di 
programmazione fa si che una cultu- 
ra generale suirintormatica e ta sua 
applicazione non può prescindere da 
una conoscenza di base di questo 
linguaggio. Questo lo scopo del li- 
bro; permettere anche a chi ha sol- 
tanto una cultura di base, di capire 
che cos'è il BASIC e come si usa. 
Cod. 5078 Pag. 215 Lira 19.500 

Czes Kosnìowski 

MATEMATICA E 
COMMODORE 64 

Tutte le funzioni matematiche dispo- 
nibili sul CS4 sono qui descritte, ed II 
loro uso è illustrato con programmi 
che possono essere utilizzati dal lei- 
ture all' interno dei suoi, per partico- 
lari applicazioni. 

il libro contiene anche informazioni e 
programmi su altri argomenti, come 
i codici e la crittografia. ì numeri ca- 
suali, le serie, la trigonometria, i nu- 
meri primi e ' analisi statistica dei 
dati. 

Con cassetta 

Cod 579D Pag. ISO Lire 74.000 


Mike Grece 

ADVENTURE E 
COMMODORE 64 

Un manuale per ideare e utilizzare 
programmi di Adventure basati 
esclusivamente sul lesto 
Una progettazione modulane del pro- 
gramma rende più, faci le la compren- 
sione della struttura. L'abilità nella 
programmazione avrà modo di emer- 
gere durante la costruzione graduale 
dell Adventure. per modificare il pro- 
gramma dimostrativo, o addirittura 
per costruirne uno nuovo. 

Con cassetta 

Cod. 571D Pag. 240 Lire 35.000 

Rite Sorteli! 

COMMODORE 16 
PER TE: BASIC 3.5 

È un libro di introduzione a! BASIC 
C16 con il classico taglio didattico 
Borni. Adatto per la Scuola media 
inferiore e per etti non conosce r in- 
formatica 

La cassetta allegata al libro contiene 
diverse lezioni, una per ogni capito- 
lo, che devono essere lette pnma del 
capitolo relativo 

Con cass etta 

Cod. 4138 Pag. 295 Lira 35.000 
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Tote la 



□ Pagherò coJilrauBg.no ai postino il pretto indicalo p<u L 3 UGO per corriributo flseo 
•p**« di epedtligne, 


Ctwidlzlonii di pagamente eoo Miniiom 0*1 cóntri buio ape** di tpedulone: 


□ Allego assegno della Banca G Allega lofocopi» del venamenio 

hj c ic f\ il ÉtóSfO a ver intestato 


□ Allego fotocopia di 

ri* ip veglie poetai* a v* intestato 


Nome 


Cognom* 



Cep Citta Pro* 

Oats Fuma 


Spazi* ri |*Tf 

Partita IVA 


*»* Aztand* 51 richiede r«mta*fon* di tefeire 

I 1 I I i I 1 I I I 1 I 


OROIRf 

MINIMO 

L SQ 009 



di K* Gough 

trad. ed adatt. 

di M* Crbtoib Grini 


Con questo programma potrete 
trasformare il vostro computer 
in una tavoletta grafica ad alta 
risoluzione. I disegni generati 
possono essere salvati su aastro 
o disco* ed m richiesta un 'espan- 
sione di memoria di almeno 8 
Kbyfe. 


E cco uri programma che permette dì 
creare disegni m alta risoluzione su 
una griglia di 176x160 pixel Vengono 
inserite in memoria tre routine in lin- 
guaggio macchina, con la funzione di 
salvare e caricare in memoria i disegni 
in alta risoluzione che avete creato, e 
di pulire la pagina grafica. 

Queste routine sono contenute nelle 
istruzioni DATA del programma e ri- 
chiedo no , se non disponete della casse t 
ta allegata, particolare attenzione nella 
battitura, in quanto un errore in queste 
istruzioni può portare con alta probabili- 
tà al blocco totale del computer. 

Ecco ora un elenco dei comandi disponi- 
bili con "Magic Draw rt : 

SHIFT/CLR 

Pulisce lo schermo in alta risoluzione. 
Dopo aver attivato “Magic Draw’' per 
la prima volta, dovrete usare questo co- 
mando per pulire lo schermo in alta ri- 
soluzione dai disegni casuali che saran- 
no in esso contenuti. Dopo aver premu 
to SHIFT/CLR potrete vedere il pixel 
lampeggiante (cursore) al centro dello 
schermo 

SH1FT/CRSR (SU) 

Muove il cursore verso Tallo dì un pixel 
CRSR (GIÙ) 

Muove il cursore verso il basso di un pi 
nel. 

5HIFT/CRSR (SINISTRA) 

Muove il cursore verso sinistra di un pi 
xel 

CRSR (DESTRA) 

Muove il cursore verso destra di un pi- 
xel. 

HOME 

Porta il cursore al centro dello schermo. 
X 

Flotta un pixel alla posizione corrente 
del cursore, 

2 

Cancella - se presente — un pixel alla 
posizione del cursore. 


+ 

Incrementa le dimensioni del rettangolo 
di un pixel ogni volta che sia premuto 
questo tasto. Il lìmite massimo è di 90 
pixel. 


Dee re menta le dimensioni del rettango- 
lo di un pixel ogni volta che sia premuto 
questo tasto, lì minimo è dì 2 pixel 
0 

Il tasto "0" crea una figura a rettangolo 
nel colore del fondo dello schermo, a 
destra e verso il basso rispetto alla posi- 
zione del cursore. Le dimensioni del ret- 
tangolo sono controllate dai tasti "+ M e 
Questa funzione è utilizzabile per 
aprire “finestre” su zone dello schermo 
completamente nere, 

G 

Disegna sullo schermo una griglia dì 
spazi- cara! te re (8x8 pixel), utile per 
tracciare disegni ad elevata precisione. 
Premete SHÌFT/G per cancellare la grì- 
glia. 

S 

Salva un disegno su nastro o disco: ogni 
pagina grafica occupa 3524 byte. La 
pressione di 5 provoca T uscita dalla pa- 
gina grafica e la richiesta del nome del 
file. Quindi si dovrà digitare 1 per disco 
o 2 per il nastro. Una volta completato 


il salvataggio, si ritorna nella pagina 
grafica. Gli utilizzatori di unità a casset- 
te dovranno assicurarsi che i tasti sul 
registratore siano premuti. Verrà do 
mandato "Tape off? 5T prima della com 
parsa della scritta "Press Record & 
Play on Tape”. Premete semplicemen 
te RETURN alla domanda "Tape off?", 
e quindi premete i tasti Record e Play 
sul registratore, 

L 

Carica un disegno da nastro o disco. 3t 
dovrà digitare 1 per il disco o 2 per il 
nastro, ed il nome del file. Una volta 
completato il caricamento si entra 
automaticamente in modo "D" ed il di- 
segno viene visualizzato sullo schermo 
con il cursore a! centro di questuiti 
mo. 

Q 

Esce dal modo in alta risoluzione: io 
schermo si pulisce e ricompare il nor- 
male cursore del VJC 20, E possìbile 
dare nuovamente il RUN al programma 
e rivisuaìizzare ìl disegno precedente- 
mente tracciato. 

F2 

Premendo il tasto di funzione F2 viene 
stampato 11 disegno in alta risoluzione 
su una stampante Commodore VIC 
1515 o 1525. La stampa del finterò 
schermo richiede circa 35 minuti. 


D 

Flotta in modo 
continuo, muo- 
vendo il cursore 
con i tasti 
CRSR Premete 
ancora D per di- 
sabilitare questa 
funzione. 

E 

Cancella in mo- 
do continuo, 
muovendo il 
cursore con i ta- 
sti CRSR. Pre- 
mete ancora D 
per disabilitare 
questa funzio 
ne, 

@ 

Il tasto M crea una figura a rettango- 
lo pieno a destra e verso il basso rispet- 
to al cursore. Le dimensioni del rettan- 
golo sono controllate dai tasti e 
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Magic Draw per VIC 20 

programma I 

20 PQKE 648, 3 0 ; SYS 5 8 6 4 8 : REM MUOVE LO SCHER 
MO A 7680 :rem 11B 

25 REM 75 

30 PRINT" {CLR } (* 4 GIU']LOAD{ 3 SU]" 

;rem 222 

40 POKE 631 , 13:PQKE198,1 :REM RETURN AUTO 
MATICO :rem 25 

50 POKE81 92,0; POKE4 3 , 1 : PO KE4 4,32; NEW : REM 
MUOVE IL BASIC A 8192 :rem 45 


Magic Draw per VIC 20 

programma 2 

50 IF PEEK £ 6 4 8 ) < > 30THENPRINT” {CLR} { GIU ì } N 
OH E 1 STATO MANDATO IN ESECUZ.IL FROGR 
- 1 ! I I " : END : rem 249 

60 PRINT" {CLR} M : POKE3 687 8 ,1 5: GOSUB970 

: r em 47 

90 FGKE36867, 1 49 : POKE36 B69 , 2 52 : POKE3687 9 , 
233 :rem 236 

100 FORI -0TO7 : P% ( I ) =2E(7^I> ; NEXT: rem 149 

1 20 FORI-QT02Ì 9 : POKE76 80 + 1 , E : POKE38400 + I , 

0 : NEXTI :X-68:Y=B0 ;rem 7 

200 GETAS : PO KE 3 6 8 7 6 , Ck I F AS * " { SU } " THBNY = Y- 
I :GOTG90Q :iem 114 

220 IFAS = " {GIU ' )"THENY«Y+1 ;GOTO9Q0 

:rem 160 

2 30 I FAS ^ ( S I N } "THENX- X- 1 :GOTO900 

irei) 45 

240 I F AS ~ " {DBS J "THENX = X+ 1 :GOTO900 

;rem 172 

2 50 1EA$^ m D"THENCW% = NOTCW1 : POKE36876 , 2 20 : 

GOSUB 5 0 0 ; GOT03 00 :rem 183 

260 I FÀ$ = "B" THENEWl - NOTEW% : POKE 3 6876, 1 58: 

GOSUB500 :rem 1 93 

2 80 LFK$ -CHR $ (14 7) THENGOSUB9S 0 : SYS 3 1 9 : A$ = 
CHR$M9) :rem 119 

2 90 IFAS =CHRS ( 1 9) THENX - 08 : Y=80 : POKE3 68 76 , 

200: GOSUB 500 :rem 120 

300 I FA$ - T, S M THENGQSUB5S0 :GOSUB56G : PQKE251 
, LEM ( N$ ) : SYS67 5 : SY5694 ; ON- (S*l JGOSUB9 
96 : RUN : rem 236 

310 IFA$- M L^THENGOSOBSSO : GOSUB56Q : POKE2 51 
,LEN(N$) : SYS 6 7 5 : SYS 71 2 :ON- (5=1 ) GOSUB9 
96 : RUN :rem 221 

320 1FAS-"Q H THENG0SUB55Q:END sterri 181 

330 IFAS-"G M THENA$»"X M ;GOT04l 0 : rem 199 

3 40 1FA$ - CHR5 (199) THENAS*" Z " : GOTO 4 1 0 

:rem 52 


350 IFAS - ,t + ,, TtfENQi “G% + 1 :POKE36876, 160+Q%: 

IFQ%>90THENQ% = 90 : rem 248 

360 I FA$ - " - "THENQ%“Q%- 1 : POKE 3 687 6 , 250 -Q% : 



1FQ|< 1 THENQ%-1 

: r em 

141 

370 

IFA$ ■ "^"THENAS = ”X” : GOTO 4 3 D 

: rem 

198 

380 

I F A$ = " 0 "THENAS - " Z " ; GOTO 4 3 0 

: rem 

.185 

390 

IFA$= H {F2 }"THENGOSUB2000:RUN 

: rem 

58 

400 GQT0900 

: rem 

102 

410 

Y = 0 : G%-1 : FORY” OTOl 52STEP8 : FORX^l TOl 68 


STEP8 : I FX= 1 THENX- 0 : GOSUB9QO 

: rem 

1 20 

420 

GOSUB900: NEXTX, Y : Gl*0 : X-88 : Y 

- 80 : GOT02 


00 

: rem 

148 


4 30 G % = 1 : X % = X : FQR Y- YTOY+Ql : FORX^XTQX+0% ; G 
QSUB90Q : NEXTX : X = X% : NEXTY :G% =0 ;GOT02 00 

: rem ITO 


500 FORI I = 1 TQ5Q : NEXTI I ; RETURN : rem 169 
550 PRINT"{CLR} {BLKJ N :POKE36867, T741POKE3 
6069, 240 :P0KE36876,O: RETURN ; rem 24 5 
560 INPUT" { BLK ] NAME : N ; N$ : QN-* (N$ ="" ) G0T099 
9 : PRINT: INPUT”! -DISK 2-TAPE" ; S : I FS = 0G 
0T0999 : rem 21 

570 POKE1 57, 1 28 : IFS = 1 THENOPENl 5,a,l5 r "XG” 
"+N$:PQKE678, 8 : RETURN: rem 47 

580 INPUT" TAPE OFF" ;0: POKE67B, 1 : RETURN 

:rei 133 

800 K%=PEEK(W%) : S% ”K%ORP% (C%) :POKEWfc,S% :R 
ETURN : rem 8 

805 POKEW%, PEEK (Wl) AND (255-Pl {€%) ) : IFKtO 
PEEK (W%) THENIFA$O"2"THENP0KEW%,S% 

:rem 223 

820 RETURN : rem 122 

900 W%= (YANDT 5) +40 96 + 1 6 * ( 22* INT ( Y/T 6 ) + INT 
(X/9) ) : IFW%>76G8GOTO20Q :rem 66 

910 C%-XAND7:GOSUB800 : GOSUB80 5 : POKE36 876 , 
250 :rem 132 

920 I F A3 = 11 Z 11 THENPOKE 3 687 6, 1 60 : GOSUB80 5 : ON 
- (G%«0 ) GOTG2 00 : RETURN : rem 3 

930 IFABS(EW%) -1 THENA$ S" : POKE3 6876 , 220 ; 

GOSUB80 5 : GOTO2Q0 :rem 1 31 

950 IFA$ = "X h 0RABS(CW%) * 1 THEN PO KE 36 876,225 
: GOSUB80 0 : IFG% - 1 TUUNRETURN :rem 149 
960 GOTO20Q : rem 106 

970 FORI = 675T067 5 + 4 6 ; RE AD A : S = 5+A : PQKEI , A : 

NEXT: IFSO5648G0T01 500 : rem 173 

980 S s 0 ; RESTORE ; POR 1=1 T04 7 : READ A : NEXT : FOR 
1 = 31 9TOI + 3 3 : RE ADA : S«S+A : PQKEI , A : NEXT 

:rem 46 

990 IFS<>4 87 5 GOTOI 500 : rem 213 

994 RETURN ;rem 134 

996 INPUT#! 5, ERI, ER$,TK%,SC%: PRINT: PRINT: 
PRTNTER% ;ER3 , TK% ; SC% : IFER%*0THENRETUR 
N : rem 85 

999 CLOSE 15: END : rem 152 

1000 DATAI 69, 3, 162, 8, 160,3,32,1 86,255,165 
,251 , 166,51 , 164, 52,32, 1 89, 255,96 

: r em 76 

T 01 0 DATAI 69,0, 1 33,1 ,1 69,16, 133,2,1 62, 1 95 
,160,29,1 69,1 ,32,21 6, 255, 96: rem 68 

1 020 DATAI 69,0, 162,1 95, 1 60,29,32,21 3,255, 

96 : rem 121 

10 30 DATAI 69,0, 1 33,252,169,16,1 33,253,162 
, U, 160,0, 169,0, 1 4 5,252, 1 36,208,249 

: r em 200 

1 040 DATA2 30, 253, 202,48, 6,208, 242, 160,1 95 
, 208,238,1 41,0,29,96 : rem 235 

1500 PRINT" {CLR} ERRORE NELLE DATA"S:5TOP 

: rem 96 

2 000 HTGH-2G:WIDE-22;R0M=2E1 5 : ADR*3686 9 : G 

PEN4 , 4 : PRINT# 4 ,CHR$ ( 8 ) ;rem 18 

201 0 S I 2E= ( (PEEK( 36867) AND 1 ) +1 ) *8:SC=PEEK 
(648) *256;UC-PBEK(ADR)/8ANDl 

: rem 214 

2030 CH ~ ( 1 * UC ) *ROM+ [PEEK (ADR) AND7) *1024 :L 
1M*INT( (5+WIDE*8)/6) *6 :rem 70 

2040 F0RL-GTOHIGH*SIZE-1STEP7:FORC=OTOLIM 
: A®0 :X%*C/8 : B IT- 2E ( 7-C+X%*8) : FORR”LT 
OR+6 : rem 117 

2050 Y%=R/SIZE:CC*PE;EX(SC+X%+YI*WIDE) ; MEM 

-CH :rem 204 

2060 IFR<HIGH* 8THKN 1 F PEEK (CC*S I ZE+MEM+R- Y 
%*SIZE) ANDBITTHENA=A+2E(R-L) 

:rem 148 

2065 GETAS : 1FAS*" { F4 } "ORL>1 S4THENPRINT# 4 , 
CHRS (15) : CLOSE 4 : RETURN ìrem 5 

2070 NEXTR : FRI NT # 4 , CH RS (128- (C<WIDE*8 ) *A) 

; :NEXTC : PR INT# 4 t NEXTL : CLOSE4 : RETURN 
» :rem 92 
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% nor tìe-n ‘utente 
; spiega, in 
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CEDOL A DI COMMISSION E LIBRA RIA 

VOGUATE SPEDIRMI 


f *ìùro fornisce le conoscenze essen- 
2» per incominciare a programmare 
*■ BASIC su di un personal com- 

M. 018D Pag. 48 Lire 9.000 


PRIMI PASSI 
IN BASIC 

I ftbro propone rapprendi mento del 
gaggio BASIC tramite lo studio e 
osarne dettagliato di programmi già 

scntti . 

Coé. 0070 Pag. 48 Lire 9.000 
^c-rry Potter - ivor GutJd 

l ROBOT 

Dogo una rapida panoramica su che 
ssa putì fare un robot, il libro pre 
senta una sene di robot con funzioni 
particolari: i robot a braccio, i robot 
operai ] robot nello spazio, etc. 
Affronta poi iJ problema di come un 
'TOc-t può essere programmato e 
commiato da un computer, e di co- 
me praticamente si realizza un robol- 

ù»d. OÙ$D Pag. 43 Lire 9 000 


CONOSCERE 
IL PERSONAL 

li libro spiega che cosa si può fare 
con un personal computer, come si 
usa e come funziona. 

Cod. 0080 Pag. 48 Lire 9.000 

Lynn Mtring - lan Graham 

RIVOLUZIONE 

INFORMATICA 

li voto me è rivolto In particolare ai 
bambini, ma anche a tutti co faro 
che. presto o tardi, verranno coinvol- 
ti dalle nuove tecniche informatiche 
prò come utenti che come operatori. 
Coti 0040 Pag. 48 Lire 9.000 
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Print Sound per VIC 20 



di A. Ka pana n 

trad, e adatL 

di F. Sa re ina 


Questo programma traduce le 
lattare in muici. Tatto ciò che 
dovete usare per ottenere I suo- 
ni deaidaratl è una semplice 
istruzione PBINT. 


P rint Sound è un programma di utili' 
tà scritto in linguaggio macchina, 
che consente di ottenere melodie musi' 
cali da un VIC 20 con semplici istruzioni 
PRINT, L'uso del programma non ri- 
chiede alcuna conoscenza del linguag- 
gio macchina. 

Digitate il listato BASIC che pubblichia- 
mo, prestando particolare attenzione al' 
le Istruzioni DATA, e salvate il pro- 
gramma prima di farlo girare. Battendo 
RUN viene stampata un'intestazione e, 
dopo una breve pausa, il programma 
suona alcune note. A questo punto 
compare il messaggio READY (viene 
restituito il controllo all'Interprete BA- 
SIC) e contemporaneamente il compu- 
ter esegue una breve melodia classica. 
Se il programma non dovesse funziona- 
re, spegnete il VIC, riaccendetelo, cari- 
cate la copia che avevate salvato, lista- 
tela e controllate soprattutto i numeri 
nelle istruzioni DATA. Fate le correzio- 
ni necessarie e ri sa Iva te il program- 
ma. 

Se tutto funziona bene, la routine in lin- 
guaggio macchina rìdefinisce la periferi- 
ca n. 2 dei VIC 20 (che normalmente è 
la porta RS-232}, in modo che ogni 
stringa di lettere inviata a tale periferica 
tramite un'istruzione PRINT venga tra- 
sformata in una sequenza di note. 

Da lettere a note 

Se esaminate il listato, noterete che il 
file logico 1, che nella linea 4-0 viene 
aperto per inviare dati alla periferica 2. 
non viene chiuso. Dopo aver fatto gira- 
re il programma digitate il comando 
PRINT# 1, “ ABCDEFGHI J KLM* in 
modo diretto. Udirete in tal modo una 
scala cromatica, che è la sequenza delle 
12 note che si odono suonando, sulla 
tastiera di un pianoforte, tutti i tasti 
(bianchì e neri) che compongono un'ot- 


tava (per esempio DO. DO diesis, RE 
e così via fino al DO successivo}. La 
stampa di una lettera da A a Y genera 
una nota, mentre la Z corrisponde al 
silenzio e quindi produce una pausa; 
tutti gli altri caratteri vengono Ignorati. 
Divertitevi a fare tutte le prove che vo- 
lete, usando il comando PRINT# 1, 
* stringa". 

Se volete incorporare in un vostro prò 
gramma BASIC questa routine in Un 
guaggio macchina, dovete semplice 
mente includere le Unee 500-640, fnse 
rendo all'Inizio del programma un istru 
zione GOSUB630. 


L’esecuzione dei comandi PRINT # 1 
viene completata in genere prima che 
il VIC finisca di suonare tutte le note. 
Ciò accade perché le lettere vengono 
memorizzate in un buffer dì 255 carat- 
teri, normalmente riservalo al canale dì 
trasmissione della RS-232, mentre una 
routine che agisce durante l'interrupt 
(cioè 60 volte al secondo) controlla il 
trasferimento dei dati aì registri sonori 
del VIC, Per sincronizzare le note col 
vostro programma potete esaminare il 
contenuto della locazione 983. che cor- 
risponde al numero di note attualmente 
nel buffer. La linea 50 del listato che 
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pubblichiamo illustra il modo per otte 
nere la sincroni zzazlon e. Se ne] vostro 
programma desiderate chiudere il file 
relativo alla periferica 2. fatelo solo 
quando il buffer è vuoto; comunque nel 
la maggior parte dei casa potete tran- 
quillamente lasciare 31 file aperto. 

La lunghezza delle note che vengono 
eseguite può essere cambiata m oditi 
cando il tredicesimo (e terzultimo) nu- 
mero nella linea 570, che normalmente 
è 10. Tale numero rappresenta la dura- 


ta di ogni nota espressa in sessantesimi 
di secondo. Provate a sostituire 10 con 
5 e vedrete con quale velocità il VIC 
suonerà le vostre musiche! 

Dato che la routine in linguaggio mac 
china risiede nel buffer di cassetta, 
1 esecuzione di un comando NEW non 
la cancella. Essa continuerà a funziona- 
re finché non premerete RUN/5TGP e 
GESTORE; in tal caso potrete riattivar 
la usando il comando SYS 828 e ria- 
prendo (se l'avevate chiuso} il file sulla 


periferica 2. Un avvertimento per chi 
usa li registratore: non dovete eseguire 
LG AD. SAVE o VERIFY su cassetta 
mentre la routine è in funzione, perciò 
prima di effettuare operazioni su nastro 
premete sempre RUN/5TOP e RE- 
STO RE per disattivarla. Inoltre tenete 
presente che tali operazioni, usando il 
buffer di cassetta, cancellano la routine 
Coloro che usano il disk drive non ha n 
no invece questi problemi. 


Print Sound per VIC 20 


IO 

PRINT" {CLR}( 4 SPAZI] [RVS] 

PRINT 



{ 2 SPAZI] SOUND " 

: rem 

237 

20 

GOSUB500 

: rem 

119 

30 

PRINT" {GIU 1 ] ORA IL SUONO E 

1 LA* 

: rem 

73 

35 

PRINT" PERIFERICA N. 2" 

: rem 

193 

40 

CLOSEl : OFENÌ , 2:PRIHT#7 t n AEHM2 LMZZZZZZ” 

: rem 137 

50 

IFPEEK ( 983 ) >0THEN50 

: rem 

16 

ÉG 

PRINT" (GIU' ] -MELODIA DI J . S 

- BACH- 

: rem 

m 

49 


70 PRI NT# 1 , "FHJMKKOMMRQRMJPHJKMOMKJHJFEFH 
" irem 52 

B0 PRI NT# 1 ,"AEHKJHJFHJMKKOMMRQRMJFHJCMKJH 
FAFEF" irem 123 

90 END irem 64 

500 DATA76, 1 94 , 3 , 76 , 1 32 , 3 , 1 4 1 , 21 9 , 3, 1 52 , 7 
2,165,1 54,201,2 : rem 236 

51 0 DATA20B, 47, 1 73 , 2 1 9 , 3, 201 , 65 , 4 8 , 3 3 , 201 
,91 , 16,29,56,233 irem 41 

520 DATA65, 168,185,220,3,172,215,3,192,25 
5,240,249,172,217,3 irem 193 


530 DATAI 45, 249,200, 1 52,41 ,255, 1 41 , 217, 3, 
238,21 5, 3,104,168,173 irem 24 

54 0 DATA2 19,3,24,96,104, 168,173,219,3,76, 
122,242,72,152,72 irem 97 

550 DATAI 73, 21 8, 3, 24 0, 1 5, 206,2! 8,3, 240,6, 
104,168,104,76,191 i rem 132 

S60 DATA 2 34 , 1 69, 0, 240, 27, 1 73, 21 5, 3, 2 40 , 24 
1,172,216,3,177,249 irem 188 

570 DATA72, 200, 152,41 ,255,1 41 ,216,3,206,2 
15,3,169,10,141,218 : rem 169 

580 DATA3, 104, 141, 10, 144, 141, 11, 144,1 41, 1 
2,144,24,144,207,120 irem 197 

590 DATAI 69, 3, 1 41 , 2 1 , 3 , 1 4 1 , 39 , 3 , 1 69 , 63 , 1 4 
1,20,3,169,66 irem 148 

600 DATAI 41 ,38, 3,88, 96,0,0,0,0,0, 1 83, 1 87, 
191,195,199 irem 52 

610 DATA201 ,203,207,209,212,21 5,217,219,2 
21,223,225,227,228,229 irem 69 

620 DATA231 ,232, 233, 235, 236, 237,0 

irem 128 

630 F0RI-828TO1 01 3 i READJ i POKEI , J : NEXT 

i rem 81 

640 POKK36878, 1 5:SY5828 i RETURN :rem 96 
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EDICOLA uai» 

LA TASTIERA COMPRE^ 
mei PRIMO FASCICOLO 



' è Tanno mondiale della musica... 
preparati con 7 note Bit , la nuova, fantastica opera 
che in soli 15 fascicoli quattordicinali (ciascuno 
corredato da una cassetta software per Commodore 64) 
ti insegna veramente la musico. 


Con 7 note Bit , porti in casa il tuo maestro personale 
dì musica che tr introduce allo teoria e al lessico 
musicali, ti insegna e li fa fare pratica sulla tastiera, 
seguendoti passo passo nelle lezioni ... senza mai 
annoiarti. 

E puoi suonare subito, con l'aiuto del software 
"interattivo" dello cassetta e della speciale tastiera 
musicale per il tuo 64, 

7 note Bit trasforma il Commodore 64 in uno 
strumento musicale sofisticato ed entusiasmante. 



Il video del computer li presenta tutio ciò che ti 
serve: un metronomo elettronico* il rigo musico le r 
lo tastiera visualizzata con le note corrispondenti ai tasti 
e potrai partecipare "dal vivo" alle session dei 
musicisti più famosi* suonando insieme o loro. 

Prenoto tn edicola 7 note Bit : una prestigiosa iniziativa 
editoriale nata dall'unione della esperienza informatico- 
divulgativa del Gruppo Editoriale Jackson 
con la competenza tecnico musicale 


7 note Bit è il "programma musicale' 
più interessante che c'è: 
non perdere 
il primo numero, 

Penso, compresa /’ a grupp 
nel preizo c'e anche A ' jH cniTOC 
la stupenda tastiera '■fcj ■ fcUITOH 
professionale per il JACKSC 

tuo Commodore 64, 


'iS vv«v. »n \ 

S feffliiiv 

i#!im^v.vrre 


WìiMÌ'à 





Il Jacksoniano sceglie 
tra 14 top... 



Jackson; una grande, esauritole sedia di periodici par saper tutta cip 
cKe e indispensabile su elettronica. informatica e personal computer 
Videofliodiì, fo go^do indiscusso al fantastico mondo dei videogame*; 


PbFionol O, la rivista Indipendente per gli utenti di PC Olivetti; 
Computinola. in rivista di informatica nello didattico, per lo scuola 
Halfono; 


-a f.vrsto del Computer in cosa, 

N nonai Software, la rivista dedicato al software dei personal 
computer; 

Bit, a prima nvijta europea di personal computer, software, accesso^. to 
più prestigiosa e più diffusa In Italkj; 

informatica Oggi, il punta di riferimento obbligato per chi si occupo di 
sistemi £DP e efi Office Autom attori; 

PC Maga line, lo primo rivista ito Nona dei sistemi MS-DOS, Personal 
Computer IBM e componibili,' 


la tetom urti celioni Oggi, lo rivisto di tefecomunicozioni e teEemoticai 
Automazione Oggi, ri mensile della nuova automazione industriale, 
Beti^onica Oggi, la più autorevole rivista di efottroriicQ professionale, 
str umettazione e componenti; 

L'Eleti romeo, il quindicinale di pollTfoa industriale, componentistica, 
informatica e talee omun ica zioni,- 

Cliktor, la più diffuso rivista europeo di applicazioni e progetto lione 
elettronico. 

Strumenti musicali, il periodico di strumenti musicali e computer-moK 


ter sottoscrivere abbonamenti compilare il tagliando e Inviare in busta chiusa Q; 


f 


Gruppo Editoriali iockion Sj J, - Via Rosillini, 12 - 20124 Milano, allegando assegna o fotocopio della ricevuta di 

versamento con voglia postale intestato o GRUPPO EDITORIALE JACKSON - MILANO, 


□ Si, desidero sottoscrivere un abbonamento a : 

□ Videogiochi Eli nJ l 30,000 anziché L 38.500 

□ Home Computer (Il nJ L 31.500 anziché L 38.500 

□ Personal Software (11 n.l l 34.000 anziché L 44,000 

□ B4 (Il n.l L 43.000 anziché L 55.000 

□ Informatica Oggi 11 I nJ L 31. ODO anziché L 38.500 
O PC Magatine (IO n.l L 40.000 anziché L 50.000 

□ Persona! O HO nJ L 35000 anziché L 40000 


□ Compu scuola (9 n.l L 15.000 anziché L 18000 

□ TdscomunScazSoni Oggi 110 nJ L 28,000 anziché L 35.000 

□ Automazione Oggi 111 n.l L 30500 anziché L 38-500 
D Elettronica Oggi 111 nJ L 36.000 anziché L 44.000 

D LEIeHronico (22 nJ L 44.000 anziché L 55.000 
D Elektor 112 nJ L 29.000 anziché L 36.000 
D Strumenti Musicali 110 n.l L 24,000 anziché L 30.000 

Attenzione per abbonamento all'estero le tariffe devono essere 
aumentale dei 50% 


E c '4 un super- risparmio a «Ili ti abbona a due a più riviste. 

Tutti coloro che sottoscrivano l'abbonamento o due o più riviste godono di un prezzo uhenonment# agevolerà, come appare nello seguente tobeflino. 
fsempiot Bir+ Informatica Oggi L 43,000+31000 -74 000 meno L 2.000 -L 72.000 


Abbonamento 

a B rivista L 20.000 in mena sulla somma degli tì prezzi d'abbanameriTo 


a 7 ri viste t 2.000 in meno sulla sommo dei 2 prozìi d'atabonafliento 

a 9 r^nte L 25000 in mena sullo somma dei 9 prezzi d'abbono menta 


o 3 nvisi» L 4.000 m meno solfo somma dei 3 prezzi dfobbonamento 

a 10 riviste L 30.000 In mena sulla sommo dm IO prezzi d'abbonamento 


0 4 riviste L 7000 in mena solfo somma dei 4 prezzi dobbanamento 

a 1 1 riviste L 35.000 in mena sulla somma degli t 1 prezzi d'abbono menta 


a 5 avi sta i 10000 *n mano mito somma dei 5 prezzi debbono mania 

a 12 rnns>e L 40.000 in mena sulla somma dei 1 2 prezzi dobbonomenio 


a 6 riviste L I3.00Q ^ mw «rio somma de* 6 prezza dabbonomento 

a 13 riviste L 44600 m mena sullo somma dei 1 3 prezzi d'abbono nitrito 


o 7 riviste L 16000 in meno uffo somma dei 7 prezzi d'abbono niente 

o f4 riviste L 50000 in mena sulla sommo dei 14 preoa d 'abbonamento 



□ Allego assegno n* dello Banca 

O Ho effettuato versamento sul c/c postale n. IIÓÓ6203 intestalo a Jackson Milano di Cui 
allega fotocopi n della ricevuto 
D Vbgli n postale e allego folce apio ricevuto 

Nome 


Cognome 


A zip n rin 


CA.P 

Ottò 

Vici 
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di M. Crittvib Grizzi 


Tower of Evil 
per Vie 20 


Thoro Emi iftw. 



Un gioco per V1C 20, con espansione ^ 
di memoria da 8 Kbyte, che comprende* 
le caratteristiche di un ad venture, fram 
miste a quelle di un buon “arcade" 

Molti anni fa il nostro eroe Andros fu 
scacciato dalla corte del re Salimos e 
destinato a non fare più ritorno fino a 
che avesse ritrovato ìt tesoro perduto 
del re e la bella principessa Diana rapi- 
ta da un mago cattivo 
Andros dispone di un potente aiuto da 
parte di un vecchio amico, il mago di 
corte, che ha il potere di lanciare palle 
di fuoco dalle sue dita. 
l\ nostro eroe ha viaggiato fino alla To- 
wer of Evi! (Torre del Male), abitazione 
del mago cattivo. Dovrà quindi espio' 
rame le varie {e numerosissime ) stan- 
ze, uccidendo man mano i mostri incon- 
trati Andros dovrà ritrovare (vari pre 
ziosì costituenti il tesoro e recuperare 
la chiave che gli permetterà di passare 
al piano successivo. ÀI settimo piano 
Andros potrà finalmente depositare il 
tesoro e salvare la bella principessa im 
pngionata. 

La grafica è molto buona, con “mostri" 
diversi per ogni piano della Tower of 
Evil, e la velocità di gioco è quella tìpi- 
camente ottenibile solo con l’utilizzo del 
linguaggio macchina 
Il gioco è utilizzabile sia da tastiera che 
attraverso il joystick ed ha l’opzione di 
scelta tra uno o due giocatori. 
Racchiudendo in sé le migliori caratteri- 
stiche dei giochi di avventura, unita 
mente alla velocità e grafica in alta riso- 
luzione degli "arcade - , Tower of Evil è 
un gioco ideale per passare ore diver- 
tenti in compagnia del proprio VIC 20. 



Questo programma 
può essere ordinato 
utilizzando 
il coupon dì pag* 82 
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Commodore 64; programmi 
ediz. Tecniche Nuove 



Una raccòlta di programmi per C64 che 
dedica il più ampio spazio possibile ai 
listati, Tacendoli precedere da un sinteti- 
co commento sul funzionamento del 
programma e dalla sua breve descrlzio- 
ne. 

Si spazia dal giochi che richiedono rapi- 
di riflessi e prontezza con il joystick, a 
quelli dì carattere piu meditativo, che 
richiedono doti logiche e di ragionamen- 
to per essere risolti con successo. Tro- 
viamo infatti i classici “Lancio con il Pa- 
racadute", "Bombardiere", *30 Maze" 
ed i giochi di ragionamento come “Re- 
versi", "Torre di Hanoi", “Rotazione di 
numeri".,. 

Una seconda parte viene dedicata alla 
grafica, con un programma che visualiz- 
za sul video la carta geografica delPinte- 
ro globo, alla musica, con un program- 
ma che trasforma 11 C64 in un completo 
sintetizzatore musicale, ed all 'utilizzo 
casalingo, con un programma generato- 


re di calendari ed un'agenda telefoni- 
ca. 

L'ultima parte del libro è dedicata alla 
“scienza ed hobby", e comprende vari 
programmi di utilità, quali “Bioritmo", 
"Elettronica" e “Distanze". 

I listati sono stati ottenuti con stampa n 
te a matrice di punti senza alcuna codifi- 
ca, per cui il listato raffigura esattamen 
te quanto deve apparire sul video lìstan 
do un programma. 

Al volume è allegata una cassetta con- 
lenente, già registrati, tutti i programmi 
presentati nel libro, al fine di evitare il 
noioso lavoro di battitura degli stessi. 


Con modo re 64; guida all'uso 

di lan Sinclair 

ediz. Tecniche Nuove 




Molte persone acquistano il C64 e si 
trovano subito davanti a notevoli diffi- 
coltà nell'apprendeme fuso, a causa 
della scarsità e superficialità delle infor- 


mazioni riportate nel manuale allegato 
alla confezione della macchina. 

Questo libro si propone di supplire alle 
deficienze del manuale allegato al C64, 
fornendo tutte le informazioni necessa- 
rie per poterne iniziare la programma- 
zione. In particolare il primo capitolo si 
occupa delle caratteristiche fondamen 
tali della macchina, quali la tastiera, i 
collegamenti con le unità periferiche ed 
il procedimento per memorizzare e cari 
care programmi da nastro o disco, 

!l secondo capitolo ed I seguenti sono 
invece dedicati al BASIC, e guidano per 
mano l'utente attraverso tutte le istru 
zìoni utilizzabili, descrivendo In grande 
dettaglio la funzione ed il risultato pro- 
vocato da ogni istruzione. 

Assunto che a questo punto della letto 
ra si sia raggiunta una accettabile confi 
denza con il BASIC, il libro passa ad 
esaminare La grafica con caratteri pro- 
grammabili ed utilizzo di Sprite Una ul- 
teriore parte dei libro è dedicata al suo- 
no e mostra come poter ottenere effetti 
sonori attraverso un’accorta program- 
mazione. 

L’ultima parte tratta in particolare di 
come accedere al codice macchina at- 
traverso il BASIC e di tutti 1 tipi di peri- 
ferica collegabili al C64 t fornendone 
una sommaria descrizione. 

L’autore, lan Sinclair, ha scritto già mol- 
ti libri sul C64, rinomati per chiarezza 
d'esposizione e ricchezza di contenuto. 


I! meglio dal Commodore 64 
di D. Lawrence 
ediz Mondadori 

H [| meglio dal Commodore 64" è dedi- 
cato a chi voglia ottenere dal proprio 
computer non solo un emulatore di con- 
solle per videogiochl, ma anche una se- 
rie di applicazioni veramente utili, come 
quelle casalinghe. 

Vengono infatti presentati diciannove 
programmi utilizzabili per applicazioni 
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“intelìi genti 1 " del computer: tra \ più in- 
teressanti troviamo un archivio elettro- 
nico, un programma di gestione del bi- 
lancio familiare, un semplice word pro- 
cessor ed un programma per disegna- 
re. 

Tutti i programmi sfruttano la tecnica 
di programmazione modulare, per cui 
ognuno di essi è sfruttabile in sé, oppure 
è inseribile, insieme ad altre routine, in 
un unico e lungo programma che ese- 
gue tutte le applicazioni proposte. 
Ciascun modulo è ampiamente e detta- 
gliatamente commentato, rendendo 
estremamente facile comprendere la 
struttura e Le funzioni delle varie linee 
del programma. 

Un buon aiuto, quindi, per chi desidera 
imparare la programmazione del C64, 
sfruttandone allo stesso tempo le mi- 
gliori caratteristiche. 



IL MEGLIO 

DAL COMMODORE 64 




I libri italiani vengono offerti 
con il 10% di sconto sul prezzo 
di copertina. 


i libri recensiti 
possono essere 
ordinati utilizzando 
il coupon a pag. 82 
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Scambio, vendo software per Gommo 
dorè 64 so d»co Sitano Bompiefi Va 
Bactagtior», 8 4404 0 Moozamfeano 
Td 0376/84537? 

Cerco stampante MPS801 m boemo 
stato, solo se occasione. Telefonare 
dopo le ore 20 30 a Salvatore Impalato 
■ ViaConsako. 148 S012S Napoli Tei. 
00 1 ,627459 62791 2 

Vendo cassetta per C64 con Turbcta 
pe (per caricare più velocemente! prò 
grammi} e stupendi videogame» {Puc 
Man. Frogger, Calcio, Gobbo, ecc.) a 
prezzo variabile da L. 1.000 a L. 5.000 
1 J uno a seconda del ftpo di gioco, oppu- 
re 10 giochi a L 30.000 Adrian Massi 
mo ■ Via Aquile*. 63 34070 Villose 
(GO) ■ Tel 0481/9109S 

Vendo VIC 20 completo di manuale, 
trasformatore e imballo più 2 cartrsdge 
(Cosmreh Cruncher e Visible Solar 
System] come nuovi Prezzi modici 
Telefonatemi ore pasti Giuseppe Mai 
zacane Via G Fanelli, 226 40 70100 
Bar. Td 481614 

Causa passaggio a sistema superiore 
vendo ni Hocco dire 150 programmi 
per Commodore 64 con molte utility 
(Superba», Easy Script, Th* tasi 
One.,,.} Francesco D'Andre Via G. 
Messina, 33 ■ 74100 Taranto Td 
099,314517 

£ nato il Commodore Club delta bassa 
bergamasca, con scopo di scambio di 
listati e programmi Scrivere a, Com 
modorr Qub Casella Postale 24058 
Romano Lombardo (BG) 

Vendo o cambio gechi per C64, tra i 
quali originali da sala giochi Donkey 
Kong, ZiKxon, Pcpeye, Il Gobbo. Foie 
Posilion, Decathlon. Baseball, Congo 
Bongo, Buck Rogm. Pillali I, Fro®ei . 
QBeri . Scrambte , Poy an e tanti alto 
Oreste Aruignano V* Luna e Sole, 23 
- 07100 Sassari Tei 079/291417 

Compro C64 distrutto, per pezzi di ri 
cambio Vendo libro “ Alla se operi a dei 
VIC 20“ imballato, disco programmi 
dal libro, 5ea Wall, Jupiter CandeT, Ro 
ad Race, interfaccia registratore a L 
10 000 l'uno Mario Comuzzo V* Po 
la. 1 33010 Tavagnacco (UD) Tel, 

0432/680044 

Sofo per zona Novara e dintorni: com- 
pro espansione 32 Kbyte o 16 Kbyte 
RAM a prezzi modici, cerco metodo 
per duplicare le 3 Kbyte s e e 8 Kbyte e 
le cartridges. Cambio giochi solo se di 
alto livello. Tutto per VIC 20. Luigi 
Sempfo - Via Podgora, 1 1 - 28100 Nova 
ra Tel. 032131327 

Eccezionale 1 Vendo VIC 20 più trastcu 
malore, cavo antenna. 2 manuali di 
istruzione (mgJeie e tiahaiwK "20 pto 
grammi per VIC 20“ della Curdo. "Gto- 
chi per a vostro VIC 20“ della Jackson 
a L. 150000 Vendo anche Dragonlire. 
Gorf, Gaidmurm Franco Peloso Ga 
spari CaBe Annunziata. 2 33053 Laii 
una (UD) Tel 0431/50383 



Per C64 compro programmi didattici 
ed utility, scolasi mi ed extra, purché 
siano ad alio livello di risoluzione grafi 
ca e capacità di calcolo Compro ino! 
tre il programma "Scacchi" e “Totocal- 
cio" Inviatemi Le vostre liste con i vo- 
stri, spero, modici prezzi. Rispondo so 
lo ai migliori offerenti. Fabio Bianchir* - 
V* Monte Solder, 5 31044 Montebel- 
luna (TV) ■ Tel 0423/23469 


Vendo i libri "Alia scoperta del VIC 20" 
e “Giochi per il vostro VIC 20" e i ear- 
tndge "Avenger e The Couni" Marco 
Lovera Via Del Moncone, 36 21010 
Cardano al Campo (VA) - Tei 261618 

Vendo programmi per VIC 20- cassetta 
con 70 programmi m versione base L 
30 000 oppure vendo catóet la con prfr 
grammi ad 8 Kbyre di espansione, 25 
tra gechi ed utility, a L 30.000 Affrer 
fatevi. Luciano Baglroru Via Della Ver 
tu. 20 - 00141 Roma Td 06 8185710 

Vendo VIC 20 più 3 cartucce a JL 
210000 Massima serietà. Vendo an- 
che cassette con 168 programmi a L 
170.000 Poma di comprarlo, venie a 
provarlo Luca Lorenz mt ViaLumum- 
ba. Il 41011 CampogaBiano IMO) 
Tel 525861 

Cerchi software per il tuo CBM 64? 
Mandami il tuo indirizzo e ti (arò riceve 
re la mia lista con più di 300 programmi 
Bruno Rude ria Via Verdi, 31 24040 
Acene (BG) Tel 0G5 878594 

Vendo CBM 64 p*ù registrato re, plot- 
ter 1520, monitor Phlips (fosfori verdi), 
scrivania con cassettiera estraibile 
(con rote Ilei taccata bianca, numerosi 
giochi c Utilities, joystick, il tutto a L. 
I 300.000 non trai Labili Galizia Anto- 
nio Bari Tèi 060/415903 209214 (ore 
ufficio) 

Vendo VIC 20 più regisiratore C2N, 
joystick, 150 programmi, 3 manuali e 2 
libri pieni di listati, 10 riviste, cassetta 
pulisci testine; ii tutto in buono stato al 
prezzo di L 390.000 Telefonare ore 
pasti o dalle 20 m poi. Antonio Presepi - 
Via Sassari, 4 47 100 Cesenatico (FOl 
Tel 83967 

Vendo Vldeopac G7Q00 piu cartuccia 
con manuale programma Assembler. 2 
cartucce (Caccia al Tesoro e Invar 
ders), J tutto a L 300.000 Luca Co- 
storto Via G B Vico, 12-05 IQO Terni 
Tel 0744 ■‘454284 

Vendo, cambio oltre LOGO programmi 
per C64. T ulte le novità, prezzi modici 
T ekdonai e o scrivere a: Mario Berardo 
V* Vittorio Emanuele, 2165 12042 

Ria tCNi Tel 0172 421703 


Posseggo molti giochi per il C64 e vor 
rei scambiarli con a Un giochi Mandate 
mi La vostra lista ed in vi spedirà b mia 
Risponderà a lutti, Tristano Magnani 
Vis Galilei, 2 01029 One Scalo (VT) 
Tel. 490327 


Vendo, scambio software per CBM 64. 
Posseggo circa 600 programmi di gio- 
chi, utility e gestionali- Prezzi straccia 
fissimi Telefonare ore posti- Olderieo 
Caviglia Via D. Carbone, 4 15050 
ViBahemia (AL) ■ Tel. 0131/03150 

Cambio registratore Hi Fi nuovo Ya- 
ma ha K20GB con Commnddre 64. 
Conguaglio per eventuale differenza. 
Telefonare dopo le 18 Fernando Casu 
Ja Via Franz one, 126 251 00 Brescia 
Tel. 316520 

Vendo per VJC 20 "Donkey Kong". 
“'Cofimic Cmneher”. ’Avanger". '“Vi*i- 
ble Solar System", “Jupiter Under “ 
più 6hbr "Afta scoperta del VlC ", ,l Sm 
toma per un computer ", "Giochi per 
VIC, “Guida al VIC", "Giocare con il 
BASIC . “Commodore VIC 2T e 3 h- 
bn su 2X81 Carlo Carrozzo Via Ago 
scino Gioia. 60 70064 Giovrnazzo (BAI 
TeJ. 0KJ 931969 

Programmi pet Atar i 800 XL Molimi 
mi programmi ni duco e cassetta Car 
lo Votpi Via Enrico Graverò 00)00 
Roma Tel. 06,51 17950 

Attenzione? Ad Augusta é nato un club 
per gà ut euri d tutti a rafitwier |j suo 
nome è "Home & Personal Computer 
Club". Potere possedere software 
completamente autentico con lo scon 
lo de) 60^- Non vi sembra fantastico^ 
Scriveteci per infcrmazem. Michele 
Antomay Via Mazzini. 1 96011 Augu 

sta (SRI -Tel. 0931 9929 

Vendo per VIC 20 espansione 3-& 16 
Kbyle selezionabili, V3C FGRTH più 3 
Kbyle RAM, 4 slot , monitor L.M., Refe 
rence Guide, Guida al VIC EL^i, y 
molti aliti Hbn e programmi. Alberto 
Baldan Via S Gallo, 168 30126 Lido 
di Venezia Tel. 04 1/461 OSO 

Vendo programmi per VIC 20 e C64; a 
chi richiede il catalogo invieremo la tes 
sera e l’opuscolo del nostro Commo- 
dore Computer Club Gian Luca Riveli! 

Via Dante Alighieri 17025 Levino 
(SV) Td- 669773 

Vendo VIC 20 più libro (46 programmi 
per giochi), i riformatore. 4 c art ndgm 
(“VIC Avenger”. "Rat Race", 'Star 
Post", "GoiT), 2 cassette di giòchi 
rGarcha Snatcha' e ‘ Pac Man”), ma 
nude distruzioni mglese v italiano 
Tutto motTme condizioni Veroaflard 
Marco Pachici Via Appiani 20030 
Senago (MI) Td 9980143 

Cambio software per Commòore 64 
Vendo sinché giochi a L. 2 000 (un vero 
affare'). Romano Vaflarm - Via G. Pari - 
ni. 5 20090 Trezzano s/ft (MI) Tel. 
02.4454981 


Posseggo oltre J0G programmi (games 
ed utility), Voce. Flipper. Decathlon. 
Star T rek , Pota Fositton , Manie Minar . 
Fort ApocaJypse, Calcio. Spodesto 
ke, Crazy Kong, Cuddly Cuburbs, 
Skramble. Aztec Chafienge, pipeàne e 
tantissimi altri programmi, tutti ecce 
zumali Aspetto nchiesre per scambi, 
rispondo sempre, Filippo Murri Via 
Otivella, 5 Serrarle 47031 Repubbli 
ca di S Marino - Tel. 900245 

Vendo carlridge per VIC 20 "Visìble 
Solar Sjffitem" a L. 20.000. spesi posta 
ti comprese. Scrivere per accordi a: 
Gianluca Bianchi - Via Grazioli, 17 • 
290)2 Caorso (PC) Tel. È21457 

Vendo VIC 20, per sbaglio cpmspon 
denza. ancora imballato (con manuale 
in italiano} più cartuccia gioco '“5ea 
Wolf H con manuale "Giochi per il VIC 
20” e 20 listati di giochi a L 220 000. 
Telefonar* ore pasti Maurizio Gatti 
Via Mar* Abbaie. 1Q0 13100 Vercelli 
Tel. 0161, 63494 

Vendo VIC ZOnuovissmocoore^stra 
toc », 14 cassette contenenti 90 grochi, 
libro "Alla scoperta del VIC 20’ e un 
libro con 30 programmi 1) tutto, con 
soli due mesi i urrà, arL. 230000 Stela 
no Fiorentini Via Servilo Preco. ì 
00175 Roma Tei 7475811 

Vendo, cambio giochi, data base, hn- 
g u aggi, labelle elettroniche, materiale 
per suono e grafica, uiilty vane, word 
processor, copiatori, compJiiùn. di 
{tattica per CBM 64 a basso prezzo 
(vasi a gamma» Benone Lozza Via 
Risorgimento, 57 20098 S Giuliano 

Milanese Td 9S4D06Q 

Vendo, cambia più di 500 programmi in 
LM per CBM 64 aL 5 000 i giochi e L 
6 000 ta uiPIty Per informazioni rivol- 
gersi a, Marco D’Amie □ Via Pio IX, 
125 OQìUO Roma 

Vendo miciocomputer Sinclair ZX£0 
valido supporto per chi si rivolge per la 
prima voi fa alla programmazione. 
Prezzo di realizzo. Come nuovo Pa 
squali' Meli Piazza S. Agostino, 38/14 
19100 La Spezia 

Vendo VIC 20 più registratore Coiti 
inodore 1530 C2N. 2 cartridges, cas- 
setta giochi al prezzo unico di 
L 340 000. Prezzo trattabile. Annuncio 
sempre valido Vendo anche separata 
mente Scrivere o telefonare. Luigi Bel- 
tramali - Via D-efla Stradale S Felice 
Circeo (LT) Td- 0773, 536241 

Cambiò sàfivuare per C64. Rispondo a 
tutti, annuncio sempre vabda. A. Manà 
Campus Vi* Genova . 40 - 07 100 Sas- 
sari 

Vendo o cambio circa 1.500 program 
mi p*rC64 Vasfoa$sonimenrag»iio 
noi, compkft' i manuali distruzione an 
iiaiano e inglese e circa 1300 giochi 
vari Angelo SetremlaTfii Via Cassane 
w. 194 2009O Segraie (MI» Tel 

Q2 2136S14 
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Per Commodore 6* disponendo da in- 
numerevoli pto^ammi vendo a L 
10,000 cassette con 5 giochi A stella, 
anche su dùco Annuncio sempre vali 
do. Scrivere a: Patbuono Ivano Via A 
di Cambio. 4 37138 Verona Tel, 

045. 568649 

Linguaggio macchina per C 64. Mi rivol- 
go a chi non è commerciarne del pn* 
pno sapere. Non trovando lesti r da an- 
ni, sul mercato, vorrai comprendere 
come allo possano invece fasore delle 
tesi e di ponte. Sono disposto al lavato 
o a contati i epistolari, Passo lutto il mio 
lempo a d «assemblare Mauro Mai siili 
■ Via Giambellincj, 44 2Ù14é Milano 
Tei. 02 4235971 

Cerco disperatamente memoria 3, 8, 
16 Kbyte per VIC 20 a prezzo accessi 
bile. Scrivere o telefonare a Nicola Ti- 
so Via Mane agn i , 33 - 36100 Vicenza 
Tel. 0144 562467 

Vendo e cambio olire 200 programmi 
per C64, ha cui molti beHuìitm, a L 
4 000 più 2 000 per cassetta Richiede 
re catalogo a Vittorio Lipari Vie Bar 
brano, 1.3 40136 Bologna Tel 
051/332197 

Sr è costituirò 0 Gub 64 m provine u dt 
Padova per scambi e vendrte Ultime 
novità Club 64 Casella Posiate 6 
35044 Montagnana (PD) Tel 

0429 82469 

Vendo VÈC 20 più espansione prò 
gromma bile 4 8 16 Kbyte. registratore 
C2N. corso BASIC su tasselle, 2 ma 
rtualt in itahano. molti programmi «u 
cassette a L 300 000 solo in nona Ca 
si dii Romani. Franco BelLardmi Vu A 
De Gas peri. 140 00045 Ganzano (RM) 
- Tel. 06. 9399584 

Vendo ZX81, espansione 16 Kbyte, ta- 
stiera tasti prementi, 2 manuali per SA 
SIC, 1 manuale per Asserti bly. un centi- 
naio di programmi tra cui : Scacchi. Vo 
lo Simulato. Asscmbly/Dìsass.. Turbo 
sase. Compilai. F ite . data base e lami 
attn a L, 200.000. Solo zona Castelli 
Romani Franco Sellarci ini Vsi A De 
Gaspcri. 140 0045 Ganzano (RMj 

Tèi 06,9399584 

Vendo CRM 64. pei fellamente (uniio- 
nani e. Così come ri registratore dedica 
to C2N. programmi di utilità "Tool 64“ 
(originale, m cari uccia) “Simon»' BA 
SIC", un Archivio e un word processor 
(sneh Vissi ongmali con manuale di 
istruzioni), 2 giochi in cartuccia, 18 Cài 
sette di giochi (quasi tutti in LM). un 
lino pei la programmazione. La “Guida 
di nferrmento dd programmatore", n 
ciste e moiri telali BASIC e LM. 1 (Oy 
stick. Il lutto a prezzo di concorrenza. 
Pasquale Sansò- Via G Gentile. 55 c ■ 
70126 Ban Tel OSO 491345 


Cambio o vendo sohware per C64 So- 
no lo possesso di moln bei videogiocbi 
ed utility {Zaxxon. Baseball, Basket, 
word processor r Mod . 740, ecc . ) Mas- 
sima serietà, Corrado Ferrari Via 
Europa, 40 20097 San Donarti Milane- 
se Tei 02/5274458 

Vendo oltre 100 programmi per CBM 
64 su cassai la a L 7 000 cadauno, De 
cattilo?!. Koala Paini et. Manie Minar, 
Pitslop, Forza 4. Poker. Puc Man, Die 
te. Baseball, Donkey Kong e tanti altri, 
tulli con Turbo Tape Annuncio sem- 
pre valido Giuseppe Tarantino Largo 
Venezia. 144 88074 Crotone fCZ) 

Vendo VIC 20 più espansione 3v8.l6 
Kbyle con regtsiratore (Sanyo) e mter 
(accia, joystick {Spectrauiòeo, con 
auto Are I. 10cassetiegtechte2manua 
li H tulio ancora imballato a soie L 
300000 Fabnzio Rossi Via Fabio Fìlzi 
20010 S*n Giorgio (MI) Tel 
0Ì3L 400174 

C ambio auto radiocomandata Redei 45 
Mod Lancia Beta MonJecaiki Turbo 
con espansione 16 Kbyte. Vabrc auto 
L 60.000, condizioni perfette Oltre al- 
la macchina offro L 30 000 Per mfor 
trazioni scrivere a Gsanluc a Meni ella 
Via Capoco. 3 03043 Cassino (FR) 
Tel 0776/24636 

Vendo 40 programmi per CBM 64. lutti 
in LM, regimai! con il Turbo Tape 
(compreso in caspita) ad qh uni prezzi 
(ognuno L 3.000. 6L 15,0001- Poesie 
do programmi come Pati Man, Pde Po- 
sition, ecc. Gianluca Flamini Via Tea 
no. 1 00177 Roma Tel 06 290194 

Pei Commodore 64 vendo centinaia di 
programmi su nastro o disco: Turbo 
Dùk. Super Base. Easy Scopi, Ckme, 
Unguàrd. DaUss, Decathlon, Magazzi 
no. Gifruss. FORTH, Logo, ecc Per la 
lista rivolgersi a: Stefano Dominioni 
Via Tommaseo 16 21100 Varese - 

TEI 0332 229909 

Vendo VIC 20 più regnatore C2N. 1 
cdf lodge. 120 ologrammi tra cui: Pa< 
Man. Ponkt>y Kong 40 Cotenne. Con 
tabi Ili a, Rubrica Telefonica, Totocal- 
cio. Formula I . ecc 11 tutto a 
L 280 000 -Iacopo Mangiav occhi - Vìa 

5 A Menci. 70 00162 Roma Tel 

8323095 

Vendo programmi per C64 su cassetta 
da L 1.000 a L 2 000. anche ultime 
novità (Decathlon, Wimhledon, Pii fall 
21 Rie budriere fera a: Marco Romani 
Va G Volti pai B 1 00149 Roma Tei. 

06 5265 121 


Giochi, giochi, yiochi vendo giochi per 
si vostro VIC 20. ita cui Frogger, Poe 
Man. Scacchi, Briscola, Invaderà, En 
duro, Millepiedi, senza espansione. lut- 
to a L 20.000. Vendo altri programmi 
da L. 1 500 a L 2 500. anche utility. 
Gianluca Bonlanti Piazzate Bruto, 1 
bis - 43100 Parma Tel. 0527 36452 

Cambio [nreltevaion più 9 tassello e 
joystick {valore commerciale L. 
ftOO. 000) con floppy disk drive 1541 . 
oppure con stampante piai ter a colori 
1520 con aggiunta di qualche tassella 
gioco, il tulio per VIC 20 Oppure yen 
do il tulio, in liuone condizioni e in 
imballò originale, a L 350000 Giàfilu 
ta Flamini Via T eano. 1 00177 Roma 
TeL 06 290I94 

Vendo programmi in LM per Gommo 
dorè 64 a meno di L 5 000 Spedisco l 
programmi m conti- assono, su disco o 
cassetta, Raffaele Ceti Piazza A Gai i 
baldi 38063 Cai aruaru Lido (C2 1 Tel 
31389 

Vendo otnrrn video game* e utihiy in 
turbo su cassetta. Prezzi mode;, assi 
curo massima serietà Richieder e tele 
a: Nmo Riggto Via Essenetcc 6& 
92700 Agrigento 

Vendo e cambio per Commodore 64 
gaoctv e utility. ira cui. Cakio, Corsa, 
Enduro, Vc>u Speack Engfeh e tanli 
altri gtocfii ed utility Per la vendita, i 
prezzi sono bassissimi Antonini Fiorito 
ViaPasutuo. 54 71017 Torremaggio 
re (FG) Tel 0882, 281899 

Vendo motti programmi su cassetta 
{700 circa) per VIC 20 inespanso o 
espanso 3-16 Kbyle e per Spedi um 
16 48 Kbyle. Sono i migliori programmi 
sul meri, a tu, tutti iti Lm. Vendo listali 
per tutti i camputei . Pte duca CoFfanel 
ti Via Preai pi, 7 2206O Arosio (CO) 
Tei. ffil..'76178S 

Cambio giochi ed utility per C64 Invio 
re lista a- Renzo Lenzi Piazzale Meo 
te Ilo, tì S710O Livomo Tel. 
0586 ■'604380 

Vendo VIC 20 come nuovo (6 mesi di 
vita) più registratore C2N, carindge 
VIC Avenger, 3 libo per VIC 20, oltre 
150 vickog-.ochi (molti m LM) e utilìlim 
in cassette Prezzo incredibile solo L 
250.000. S tmone BagJien Via Platani, 1 
93012 Gela (CU Tei 0933 916454 
(ore 14 00 17 30) 

Novità per Totocalcio c Toftp su C64. 
tìnalmer.te un modo di giocare che pori 
lare sete un computer in grado é opc 
rare tutte te cotenne possibifi Oiianz 
zato su 1 1 triple, a L 100.000SU (itecoo 
cassetta Ernesto Chianette Via Ne 
morense, 38 D 00399 Roma Tei 
06 8433884 


Per Commodore 64 vendo uJirt 800 
programmi ira i migliori a prezzi basii 
tu nastro a disco. Chiedere tela giaiui 
fa Gabriele Fanelli ViàC Zàccagnmi. 
129 OU128 Roma Tet. 06-6151345 

Vendo VC5 2600 Alari, con tre casse! 
le m regalo a sole L I9Q 000 oppure 
cambio con espansione 32 Kbyie RAM 
rier VIC 20 Vero affare, scrive temi 
Stefano Che Iti Via Lorenzo Qua rtieri 
55042 Furie dei Marmi 

Per C64 vendo, cambio ugni tipo di 
programma su disco o nastro Offro è 
vhii-iio i,i ir i.t> ■ ima -tt Si rte«r« o 

leletenarr a. Maurizio Sternien Via 
Gobetti, IO 41012 Carpi (MQ) 

Per CSM 64 vendo, compro, càmbio 
software su nastro e desco. Vasto eleo 
co programmi, ultime novità Roberto 
Rwtelli Via Pesa, 34 2OO80Tavazza 
no IMI) 

Vendo, càmb>o ^oltware di qualsiasi 
genere igames, uolniesl e molli ah ri a 
sole L 3 000 Per ricevere là tela mena 
tc L I 000. i programmi sono rum per 
V)C20eC64 EnrtcoCuoco Vi* Mite 
no, 125 12 20024 G ar bagnai e (ME) 
Tel 02 9959068 

Vendo per VIC 2ft canuccia "The 
«Hirn" a L 75.0CO, l cassetta con 30 
giòchi, 4 utilifie* (Grid Runncr, Lomas. 
Amok. BJiiz + Dieiai Catene, ecc.) a L 
20 000 più spese postali m contrasse 
gno Per accordi telefonare dalle ore 
19 00 alte 20 00 o scrivere a. Giuseppe 
Lumrdiluna Via Marco Zoppa 4 
35100 Padova (PD) Tei 049. 6033S5 

Vendo VIC 20 più regstraiorc, 4 cas 
serie, 10 Cartucce, joystick Speci rovi 
deo Tutto quasi nuovo e ni imballi ori 
giiiali a L. 300.000 Giò Dal Negro Vw 
Sansovino. 8 37100 Verona Tel 

CMS/ 576375 

Ctrnbte, vendo per Commodore 64 
be Bissimi giochi ed uiiljites in LM a 
prezzi siracciari Annuncio sempre vali- 
do. Scrivete o lelefonare dopo te ore 
20.30 Roberto Zavcd la ViaG, Verdi, 
15 47030 S Mauro Pascoli (FO) Tel 
064 ] 93 H 14 

Vendo pfrrgrannmi per L^C 20 e C64 
Massimiliano Guloria Via Lago <b 
Brace larxi 58022 Fuflunica (GR) Tel. 
0566. ^3069 


Il c hib Commodore Special vende pn> 
grommi per C64 e VIC 20 Si accettano 
toc linoni per L 3-OO0, con 2 magnrfiCE 
programmi m tegolo Si spediscono an- 
che cassette Stefano Bocchi Via 
Trento. 35 58022FUkmica (GRi Tel 
0666 43830 


5UP£ACOMRObOft£* J/8S Si 
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SUPERCOMMOBORE è bello, però.., (ovvero sug- 
gerimenti, idee, critiche, richieste e tutto ciò che vi 
passa per fa testa). 


Nome .Cognome 

Via « C.A,P. , 

Città — Tel 

V.. J 


82 5UPEKCOMMOQORE* Jyte 



I 



AfHDA I TUOI DATI A 



A 


Come editori di 
software, abbiamo 
senato ['esigenza di 
utili zz ore, per- la produ 
2Ìon* dei nostri program- 
mi,, un sopporto particolar 
me n I e off i d abile Dopo seve ri 
ed otturo N test abbiamo opera- 
to la scelta Siamo lieti di propor- 
lo con il nostra marchia a chiunque 
desideri lo varare con la nostro stesso 
tranquillità. Floppy drt* do 5" 1/4, sin- 
golo faccia, doppia densità, in confezione 


Ordini superiori solo multipli ài IO seconda la 
seguente scala di prezzi 
10 dischetti L. 5,000 cad- 

- da 20 o 50 dischetti L. 4,700 tcd- 

- do 60 a 1 QO dischetti t 4,400 tad, 

-da HO dischetti e oltre L, 3.900 cod- 

I prezzi sono comprensivi di IVA e spese di spedizione. 


Per ordinare ritagliate e spedite il tagliando sotto riportato O 
J soft - Viale Resielli, 5 20124 Milano 
Tel 02 6888228 683797 - 68B0841 - Ó880842 6880843 


IO J disk 




CEDOLA DI ORDINAZIONE OFFERTA DISCHETTI 

Da carnei Ione e spedirà in busta chioso c 
J. sef r - Viole Pestelli, 5 - 20124 Milano 
Td 02/6868228 - 683797 - 6880841 - 688084? - 6880843 


■bfiK. I seg.-entì dischetti r in confezione da 10 pezzi cad,, per un importo 
«M>e d L ... .. IVA e spese di spedizione incluse. 

r K dèdietti (minima 10 e multipli di IO) 

i c^bgati 

j oHegato n° ... 

I fo wtOKC importo a me^o voglia postale 

:■ importo sul CCP n° 1 9445204 intestato a J, soff Milano 
ere «i contrassegno al postino al ricevimento dei dischetti 


Nome » ..... 

Cognome . . . . , 

Via 

CAP Citta , 

Se richiesto iattura - codice listale 

Dota ..... , , Firmo ... 

Offerta valida solo per l'Italia. 


Prov. 



Dalla 


grande edicola 
Jackson 

Tutto sul personal 

computer 


PC MAGAZINE 


PERSONAL 0 

In questo numero: 

L'architetto 
di fronte 
all'informatica 

Unix per M 24 

Il cancelliere nel 

L'archivio tascabile, 
quando l'agenda 
non basta 


BIT 

In questo numero: 

Speciale 
Macintosh 

HP-110 contro 
D.G.-One 

Memotech 

MTX-512 

Softest: Super 
Window 

Test: Sidekick 


Personal-O/PC/Bit/Personal Software 

sono pubblicazioni firmate: 

GRUPPO EDITORIALE JACKSON 

via Roseti, 12-20124 Milano 


In questo numero: 

Banche dati: è nostrana 
la più grande d'Europa 

Il redditometro con VisiCalc 

At: più potenza 
sulla scrivania 

Autocad: il tecnigrafo 
elettronico 


In questo numero: 

Catalogo nastri per Sharp 
L'ultimo perde con C64 
TTmusic per Spectrum 
Totocalcio con Apple 




